git » jacl.git » commit 35ef7c7

Fix RETURN

author Alan Dipert
2021-07-24 05:53:36 UTC
committer Alan Dipert
2021-07-24 05:53:36 UTC
parent abf1a0b618894c5fe33c834f8b52a0a796c94cc5

Fix RETURN

boot.lisp +1 -1

diff --git a/boot.lisp b/boot.lisp
index 63d7810..d7030ee 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -101,7 +101,7 @@
                          (vname# (%internal-name "BLOCK-VALUE" block-name))
                          (labelname# (%internal-name "BLOCK-LABEL" block-name)))
   `(%progn (%setq ,vname# ,expr)
-           (%go ,labelname)))
+           (%go ,labelname#)))
 
 (%export 'return)
 (defmacro return (expr)