picolisp

commit a900c571bd2e390a04a12844c32045f2ed760b72
parent 01e8586f5e6b7415b1c9c8057be40a7cc181e051
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 29 Feb 2012 11:34:01 +0100

Bug in 'fold' (64-bit)
Diffstat:
M
CHANGES
 | 
1
+
M
src64/sym.l
 | 
4
++--

2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * XXmmm12 picoLisp-3.0.10
+   Bug in 'fold' (64-bit)
    Bug in 'db' for partial '+Aux' access
    Bug in 'interface' (Ersatz)
    'locale' optional arguments
diff --git a/src64/sym.l b/src64/sym.l
@@ -1,4 +1,4 @@
-# 29sep11abu
+# 29feb12abu
 # (c) Software Lab. Alexander Burger
 
 ### Compare long names ###
@@ -3525,7 +3525,7 @@
                call isLetterOrDigitA_F  # Letter or digit?
                if nz  # Yes
                   sub (S II) 1  # Decrement 'cnt'
-                  break s
+                  break z
                   call caseDataA_AC  # Get case info
                   and A (hex "FFFF")
                   shr A 6  # Make index