picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
MCHANGES | 1+
Msrc64/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