picolisp

commit 7a2a75ae1093655abd604a9ba4b32e66cab4184a
parent 706c71633b5dc73a8006c35a76664d47df47d119
Author: Commit-Bot <unknown>
Date:   Tue,  3 Aug 2010 09:45:25 +0000

Automatic commit from picoLisp.tgz, From: Tue, 03 Aug 2010 09:45:25 GMT
Diffstat:
M
src64/main.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 02aug10abu
+# 03aug10abu
 # (c) Software Lab. Alexander Burger
 
 ### Global return labels ###
@@ -1855,7 +1855,7 @@
    push L  # Save C frame pointer
    ld L (Link)  # Restore link register
    link  # Apply args
-   push (Lisp1)  # 'fun'
+   push (Z)  # 'fun'
    xchg A E  # First arg
    call boxCntE_E  # Make number
    push E