From d47159a7f43a28a563b1f7c94f982e3f57945395 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Wed, 4 Oct 2017 23:04:03 +0000
Subject: pstricks (4oct17)

git-svn-id: svn://tug.org/texlive/trunk@45464 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/generic/pstricks/pst-fp.tex | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'Master/texmf-dist/tex/generic/pstricks/pst-fp.tex')

diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-fp.tex b/Master/texmf-dist/tex/generic/pstricks/pst-fp.tex
index 2ea9cf11f4f..2d4e748193a 100644
--- a/Master/texmf-dist/tex/generic/pstricks/pst-fp.tex
+++ b/Master/texmf-dist/tex/generic/pstricks/pst-fp.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-fp.tex 446 2017-04-19 11:40:55Z herbert $
+%% $Id: pst-fp.tex 465 2017-05-22 17:50:57Z herbert $
 %%
 %%
 %% This is file `pst-fp.tex',
@@ -121,12 +121,12 @@
 \def\pstFP@swallow#1\relax{}
 %
 \def\ifpstFP@zero#1{%
-  \ifnum%
-    \expandafter\ifnum\csname pstFP@#1ia\endcsname=0 0\else1\fi%
-    \expandafter\ifnum\csname pstFP@#1ib\endcsname=0 0\else1\fi%
-    \expandafter\ifnum\csname pstFP@#1fa\endcsname=0 0\else1\fi%
+  \ifnum
+    \expandafter\ifnum\csname pstFP@#1ia\endcsname=0 0\else1\fi
+    \expandafter\ifnum\csname pstFP@#1ib\endcsname=0 0\else1\fi
+    \expandafter\ifnum\csname pstFP@#1fa\endcsname=0 0\else1\fi
     \expandafter\ifnum\csname pstFP@#1fb\endcsname=0 0\else1\fi%
-    =0\relax%
+    =0\relax
 }
 %
 %read value
@@ -485,7 +485,8 @@
    \fi%
    \global\let\pstFP@tmp\pstFP@tmp%
   }%
-  \let#1\pstFP@tmp%
+%  \pstFPstripZeros\pstFP@tmp{#1}%
+  \let#1\pstFP@tmp
 }
 
 
@@ -581,7 +582,8 @@
    \global\let\pstFP@tmp=\pstFP@tmp%
    %
   }%
-  \let#1\pstFP@tmp%
+%  \pstFPstripZeros\pstFP@tmp{#1}%
+  \let#1\pstFP@tmp
 }
 %multiply two values
 
@@ -705,7 +707,8 @@
      \else\typeout{pstFPmul: Overflow}\fi%
    \else\typeout{pstFPmul: Overflow}\fi%
    \global\let\pstFP@tmp\pstFP@tmp}%
-  \let#1\pstFP@tmp%
+%  \pstFPstripZeros\pstFP@tmp{#1}%
+  \let#1\pstFP@tmp
 }
 %
 \catcode`\@=\PstAtCode\relax
-- 
cgit v1.2.3

