diff options
| -rw-r--r-- | share/txr/stdlib/pic.tl | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/share/txr/stdlib/pic.tl b/share/txr/stdlib/pic.tl index 8d5ce59e..6c2c8048 100644 --- a/share/txr/stdlib/pic.tl +++ b/share/txr/stdlib/pic.tl @@ -38,13 +38,8 @@ (let ((code (if (or minus plus (not zero)) ^(fmt ,`~@(len fmt),@(if plus "+")@(if zero "0")@(len fra)f` ,val) - (with-gensyms (vg) - ^(let ((,vg ,val)) - (if (minusp ,vg) - (fmt ,`~@(len fmt),@(if zero "0")@(len fra)f` - ,vg) - (rest (fmt ,`~@(succ (len fmt)),+@(if zero "0")@(len fra)f` - ,vg)))))))) + ^(fmt ,`~@(len fmt),-0@(len fra)f` + ,val)))) (if exc (with-gensyms (str) ^(let ((,str ,code)) |