diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index fc80d178..943ae461 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -483,7 +483,7 @@ bfrag.ffuns))))) (defmeth compiler comp-return-from (me oreg env form) - (mac-param-bind form (op name value) form + (mac-param-bind form (op name : value) form (let* ((nreg (if (null name) nil me.(get-dreg name))) @@ -496,7 +496,7 @@ vfrag.ffuns))))) (defmeth compiler comp-return (me oreg env form) - (mac-param-bind form (op value) form + (mac-param-bind form (op : value) form me.(comp-return-from oreg env ^(,op nil ,value)))) (defmeth compiler comp-handler-bind (me oreg env form) |