picolisp

commit 726ff9a9c7d7ed70a5569a9376cec7b25f0e4635
parent a900c571bd2e390a04a12844c32045f2ed760b72
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 29 Feb 2012 15:16:26 +0100

Fixing last fix in 'fold'
Diffstat:
M
src64/sym.l
 | 
8
++++++--
M
src64/tags
 | 
2
+-

2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/src64/sym.l b/src64/sym.l
@@ -3524,8 +3524,6 @@
                ld E C  # Save C
                call isLetterOrDigitA_F  # Letter or digit?
                if nz  # Yes
-                  sub (S II) 1  # Decrement 'cnt'
-                  break z
                   call caseDataA_AC  # Get case info
                   and A (hex "FFFF")
                   shr A 6  # Make index
@@ -3538,6 +3536,8 @@
                   call charSymACX_CX  # Pack char
                   xchg X (S)  # Swap status
                   ld (S I) C
+                  dec (S II)  # Decrement 'cnt'
+                  break z
                end
                ld C E  # Restore C
             loop
@@ -3545,8 +3545,12 @@
             call consSymX_E  # Make transient symbol
             drop
          end
+         pop Y
+         pop X
+         ret
       end
    end
+   ld E Nil
    pop Y
    pop X
    ret
diff --git a/src64/tags b/src64/tags
@@ -991,7 +991,7 @@ ipSocketErrX	err.l	652
 ipV6onlyErrX	err.l	662
 isBlankE_F	sym.l	696
 isInternEXY_F	sym.l	37
-isLetterOrDigitA_F	sym.l	3554
+isLetterOrDigitA_F	sym.l	3558
 isLifeE_F	db.l	525
 isaCE_F	flow.l	1009
 jnlErrX	err.l	618