diff options
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index b516d91a..349fd9ab 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2145,7 +2145,7 @@ (defun expand-defun (form) (mac-param-bind form (t name args . body) form (flet ((mklambda (block-name block-sym) - (rlcp ^(lambda ,args (,block-sym ,block-name ,*body)) form))) + (set-macro-ancestor ^(lambda ,args (,block-sym ,block-name ,*body)) form))) (cond ((bindable name) ^(sys:rt-defun ',name ,(mklambda name 'sys:blk))) |