picolisp

commit 1506cd5619672fd7d470b9dc6d3a6895731da628
parent 47c25c155d033b3b2b602ec5771e2cdc57f387d7
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 25 Feb 2011 11:09:41 +0100

Same for the opposite direction
Diffstat:
M
ersatz/lib.l
 | 
6
+++---
M
lib/misc.l
 | 
6
+++---

2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/ersatz/lib.l b/ersatz/lib.l
@@ -489,7 +489,7 @@
                (at A (push 'L " "))
                (push 'L (& 1 X)) )
             (pack S L) ) )
-      ((setq X (chop X))
+      ((setq X (filter '((C) (not (sp? C))) (chop X)))
          (let (S (and (= '- (car X)) (pop 'X))  N 0)
             (for C X
                (setq N (| (format C) (>> -1 N))) )
@@ -504,7 +504,7 @@
                (at A (push 'L " "))
                (push 'L (& 7 X)) )
             (pack S L) ) )
-      ((setq X (chop X))
+      ((setq X (filter '((C) (not (sp? C))) (chop X)))
          (let (S (and (= '- (car X)) (pop 'X))  N 0)
             (for C X
                (setq N (| (format C) (>> -3 N))) )
@@ -519,7 +519,7 @@
                (at A (push 'L " "))
                (push 'L (hex1 X)) )
             (pack S L) ) )
-      ((setq X (chop X))
+      ((setq X (filter '((C) (not (sp? C))) (chop X)))
          (let (S (and (= '- (car X)) (pop 'X))  N 0)
             (for C X
                (setq C (- (char C) `(char "0")))
diff --git a/lib/misc.l b/lib/misc.l
@@ -101,7 +101,7 @@
                (at A (push 'L " "))
                (push 'L (& 1 X)) )
             (pack S L) ) )
-      ((setq X (chop X))
+      ((setq X (filter '((C) (not (sp? C))) (chop X)))
          (let (S (and (= '- (car X)) (pop 'X))  N 0)
             (for C X
                (setq N (| (format C) (>> -1 N))) )
@@ -116,7 +116,7 @@
                (at A (push 'L " "))
                (push 'L (& 7 X)) )
             (pack S L) ) )
-      ((setq X (chop X))
+      ((setq X (filter '((C) (not (sp? C))) (chop X)))
          (let (S (and (= '- (car X)) (pop 'X))  N 0)
             (for C X
                (setq N (| (format C) (>> -3 N))) )
@@ -131,7 +131,7 @@
                (at A (push 'L " "))
                (push 'L (hex1 X)) )
             (pack S L) ) )
-      ((setq X (chop X))
+      ((setq X (filter '((C) (not (sp? C))) (chop X)))
          (let (S (and (= '- (car X)) (pop 'X))  N 0)
             (for C X
                (setq C (- (char C) `(char "0")))