From 49243654bffac57fb8b49d88c7cfb60a4150edbc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 1 Apr 2018 19:43:58 -0700 Subject: compiler: bugfix: return value optional * share/txr/stdlib/compiler.tl (comp-return-from, comp-return): The value expression is optional in all the return operators. --- share/txr/stdlib/compiler.tl | 4 ++-- 1 file 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) -- cgit v1.2.3