1 files changed, 2 insertions, 2 deletions
diff --git a/place.tl b/place.tl
index 6003fa30..ffa37a66 100644
--- a/place.tl
+++ b/place.tl
@@ -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)))