picolisp

commit 813cddb823be9243956a3b25388f2eb0a65783cc
parent 5f1a12f680b45c32d375acdd426b35e7387ab505
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed,  8 Jun 2011 16:27:07 +0200

Bug in structure return from 'native'
Diffstat:
M
src64/main.l
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 23apr11abu
+# 08jun11abu
 # (c) Software Lab. Alexander Burger
 
 (code 'Code)
@@ -1708,11 +1708,11 @@
                      else
                         atom E  # Atomic?
                         if z  # No: Arrary or structure
-                           null A  # Returned NULL?
+                           null C  # Primary return value?
+                           ldz C A  # Yes: Get into C
+                           null C  # Value NULL?
                            ldz E Nil  # Yes: Return NIL
                            if nz
-                              null C  # Pointer?
-                              ldz C A  # Yes: Load into C
                               push X
                               push Y
                               push Z