picolisp

commit e70f6447faa1ecce110be17062bd68fb4d5cac34
parent ab66dafd84a9f4475fa5c778b7b957c5a772df32
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri,  6 Apr 2012 16:41:00 +0200

Minor: Comment mistype
Diffstat:
M
src64/big.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src64/big.l b/src64/big.l
@@ -1,4 +1,4 @@
-# 26aug11abu
+# 06apr12abu
 # (c) Software Lab. Alexander Burger
 
 ### Destructive primitives ###
@@ -1696,7 +1696,7 @@
    loop
    cmp B (char "+")  # Plus sign?
    jz 10  # Yes
-   cmp B (char "-")  # Plus sign?
+   cmp B (char "-")  # Minus sign?
    if eq  # Yes
       or (L -II) 1  # Set Sign
 10    call symByteCX_FACX  # Next byte