diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-01 19:43:58 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-01 19:43:58 -0700 |
| commit | 49243654bffac57fb8b49d88c7cfb60a4150edbc (patch) | |
| tree | f41ba840367800cc97190c229cfd27c0e891adfd | |
| parent | dd8bd401f9db017b3867a0ced759d56f20640b36 (diff) | |
| download | txr-49243654bffac57fb8b49d88c7cfb60a4150edbc.tar.gz txr-49243654bffac57fb8b49d88c7cfb60a4150edbc.tar.bz2 txr-49243654bffac57fb8b49d88c7cfb60a4150edbc.zip | |
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.
| -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) |