I wanted to use Picolisp as shell script languate and I didn’t find
out how to get exit status for "call". So I made this patch. I'm new
for Picolisp.

Is this patch correct? What name is better for global "*ExitStat"?

diff --git src64/flow.l src64/flow.l
index b28857e..9a72ddb 100644
--- src64/flow.l
+++ src64/flow.l
@@ -3235,0 +3236,3 @@
+         shl A 4  # Make short number
+         or A CNT
+         ld (ExitStat) A
diff --git src64/glob.l src64/glob.l
index cbf718a..7e19b7c 100644
--- src64/glob.l
+++ src64/glob.l
@@ -182,0 +183 @@
+   initSym ExitStat  "*ExitStat" ZERO
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to