diff options
| -rw-r--r-- | stdlib/compiler.tl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index fcdabf58..caa1143a 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -1037,9 +1037,8 @@ (uni ffuns bfrag.ffuns)))))))) (defmeth compiler comp-fbind (me oreg env form) - (mac-param-bind form (sym raw-fis . body) form - (let* ((fis (mapcar [iffi atom list] raw-fis)) - (lexfuns [mapcar car fis]) + (mac-param-bind form (sym fis . body) form + (let* ((lexfuns [mapcar car fis]) (frsize (len lexfuns)) (rec (eq sym 'sys:lbind)) (eenv (unless rec (new env up env co me))) |