diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/l3kernel/l3fp-old.dtx')
-rw-r--r-- | Master/texmf-dist/source/latex/l3kernel/l3fp-old.dtx | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/Master/texmf-dist/source/latex/l3kernel/l3fp-old.dtx b/Master/texmf-dist/source/latex/l3kernel/l3fp-old.dtx index 63895efcaae..b336d346ffe 100644 --- a/Master/texmf-dist/source/latex/l3kernel/l3fp-old.dtx +++ b/Master/texmf-dist/source/latex/l3kernel/l3fp-old.dtx @@ -36,7 +36,7 @@ % %<*driver> \RequirePackage{l3bootstrap} -\GetIdInfo$Id: l3fp-old.dtx 4082 2012-08-12 12:14:17Z bruno $ +\GetIdInfo$Id: l3fp-old.dtx 4163 2012-08-30 16:33:11Z bruno $ {L3 Experimental floating-points (old)} \documentclass[full]{l3doc} \begin{document} @@ -122,15 +122,25 @@ % } % \begin{macro}[aux]{\@@_abs:NNN} % Simply expand the floating point variable to feed it to -% \cs{@@_abs_o:w} or \cs{@@_neg_o:w}, expanded within an expanding +% \cs{@@_abs_o:w} or \cs{@@_-_o:w}, expanded within an expanding % token list assignment. The \cs{prg_do_nothing:} is not necessary, -% but it reminds us moe clearly that \cs{@@_abs_o:w} and -% \cs{@@_neg_o:w} expand after their result. +% but it reminds us more clearly that \cs{@@_abs_o:w} and +% \cs{@@_-_o:w} expand after their result. % \begin{macrocode} \cs_new_protected_nopar:Npn \fp_abs:N { \@@_abs:NNN \tl_set:Nx \@@_abs_o:w } \cs_new_protected_nopar:Npn \fp_gabs:N { \@@_abs:NNN \tl_gset:Nx \@@_abs_o:w } -\cs_new_protected_nopar:Npn \fp_neg:N { \@@_abs:NNN \tl_set:Nx \@@_neg_o:w } -\cs_new_protected_nopar:Npn \fp_gneg:N { \@@_abs:NNN \tl_gset:Nx \@@_neg_o:w } +\cs_new_protected_nopar:Npx \fp_neg:N + { + \exp_not:N \@@_abs:NNN + \exp_not:N \tl_set:Nx + \exp_not:c { @@_-_o:w } + } +\cs_new_protected_nopar:Npx \fp_gneg:N + { + \exp_not:N \@@_abs:NNN + \exp_not:N \tl_gset:Nx + \exp_not:c { @@_-_o:w } + } \cs_new_protected:Npn \@@_abs:NNN #1#2#3 { #1 #3 { \exp_after:wN #2 #3 \prg_do_nothing: } } \cs_generate_variant:Nn \fp_abs:N { c } |