picolisp

commit 3b81581ee3f2451150ce1dfdbf232c6102eee82c
parent 35c39967c8fd03177a2cd025710f0475c80bbc18
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 21 Sep 2011 08:02:14 +0200

Undo 'add' -> 'inc'
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 @@
-# 20sep11abu
+# 26aug11abu
 # (c) Software Lab. Alexander Burger
 
 ### Destructive primitives ###
@@ -666,7 +666,7 @@
                ret
             end
             ld A (E DIG)  # Add carry to next digit
-            inc A
+            add A 1
          loop
       end
       ld C (A DIG)  # Add digits