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 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:
Msrc64/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