diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 6ae10495..ef79a418 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -898,10 +898,14 @@ bfrag.ffuns))))))))) (defmeth compiler comp-fun (me oreg env form) - (mac-param-bind form (op sym) form - (iflet ((fbin env.(lookup-fun sym t))) - (new (frag fbin.loc nil nil (list sym))) - (new (frag oreg ^((getf ,oreg ,me.(get-sidx sym))) nil (list sym)))))) + (mac-param-bind form (op arg) form + (let ((fbin env.(lookup-fun arg t))) + (cond + (fbin (new (frag fbin.loc nil nil (list arg)))) + ((and (consp arg) (eq (car arg) 'lambda)) + me.(compile oreg env arg)) + (t (new (frag oreg ^((getf ,oreg ,me.(get-sidx arg))) + nil (list arg)))))))) (defmeth compiler comp-progn (me oreg env args) (let* (ffuns fvars |