From ef358fe94be17fdea4c6cc28e6dc730a9a1d3d85 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 13 Mar 2017 21:10:24 +0000
Subject: l3

git-svn-id: svn://tug.org/texlive/trunk@43488 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex')

diff --git a/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex b/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex
index 72b29f13e11..08580e71110 100644
--- a/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex
+++ b/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex
@@ -60,8 +60,8 @@
 %% File: expl3.dtx Copyright (C) 1990-2017 The LaTeX3 Project
 \def\ExplFileName{expl3}%
 \def\ExplFileDescription{L3 programming layer}%
-\def\ExplFileDate{2017/03/07}%
-\def\ExplFileVersion{6984}%
+\def\ExplFileDate{2017/03/11}%
+\def\ExplFileVersion{6988}%
 \begingroup
   \def\next{\endgroup}%
   \expandafter\ifx\csname PackageError\endcsname\relax
@@ -10381,7 +10381,7 @@
       { is~undefined. }
   }
 %% File: l3fp.dtx Copyright (C) 2011-2017 The LaTeX3 Project
-\GetIdInfo$Id: l3fp.dtx 6923 2017-02-14 03:07:25Z bruno $
+\GetIdInfo$Id: l3fp.dtx 6987 2017-03-11 01:06:52Z bruno $
   {L3 Floating points}
 %% File: l3fp-aux.dtx Copyright(C) 2011-2014,2016-2017 The LaTeX3 Project
 \cs_new:Npn \__fp_use_none_stop_f:n #1 { \exp_stop_f: }
@@ -11883,6 +11883,8 @@
   { \__fp_parse_unary_function:nNN {exp} ? }
 \cs_new:Npn \__fp_parse_word_ln:N
   { \__fp_parse_unary_function:nNN {ln} ? }
+\cs_new:Npn \__fp_parse_word_sign:N
+  { \__fp_parse_unary_function:nNN {sign} ? }
 \cs_new:Npn \__fp_parse_word_sqrt:N
   { \__fp_parse_unary_function:nNN {sqrt} ? }
 \tl_map_inline:nn
@@ -12627,6 +12629,18 @@
   { \fi: \fi: #2 }
 \cs_new:Npn \__fp_minmax_break_o:w #1 \fi: \fi: #2 \s__fp #3; #4;
   { \fi: \__fp_exp_after_o:w \s__fp #3; }
+\cs_new:Npn \__fp_sign_o:w ? \s__fp \__fp_chk:w #1#2; @
+  {
+    \if_case:w #1 \exp_stop_f:
+           \__fp_case_return_same_o:w
+    \or:   \exp_after:wN \__fp_sign_aux_o:w
+    \or:   \exp_after:wN \__fp_sign_aux_o:w
+    \else: \__fp_case_return_same_o:w
+    \fi:
+    \s__fp \__fp_chk:w #1 #2;
+  }
+\cs_new:Npn \__fp_sign_aux_o:w \s__fp \__fp_chk:w #1 #2 #3 ;
+  { \__fp_exp_after_o:w \s__fp \__fp_chk:w 1#2{1}{1000}{0000}{0000}{0000}; }
 \cs_new:cpn { __fp_not_o:w } #1 \s__fp \__fp_chk:w #2#3; @
   {
     \if_meaning:w 0 #2
-- 
cgit v1.2.3

