diff options
Diffstat (limited to 'place.tl')
-rw-r--r-- | place.tl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -96,8 +96,8 @@ (defmacro rlet (bindings :env e . body) (let ((exp-bindings (mapcar (aret ^(,@1 ,(macroexpand @2 e))) bindings))) - (let ((renames [keep-if [orf symbolp constantp] exp-bindings second]) - (regular [remove-if [orf symbolp constantp] exp-bindings second])) + (let ((renames [keep-if constantp exp-bindings second]) + (regular [remove-if constantp exp-bindings second])) (cond ((and renames regular) ^(symacrolet ,renames (let ,regular ,*body))) |