Commit 18eabf4c authored by Attila Lendvai's avatar Attila Lendvai
Browse files

fix with-macro: then using (-body- some local args) the order got reversed by some changes

Ignore-this: 2368d08fbb73e79e75f3a7fe8b0f1489

darcs-hash:16a468213e7f9974cb1d5b0dce9c72612a5ceac5
parent 216c9e8e
Loading
Loading
Loading
Loading
+2 −0
Original line number Diff line number Diff line
@@ -299,6 +299,8 @@ like #'eq and 'eq."
                  (progn
                    (push el inner-arguments/macro-body)
                    (push `(quote ,el) inner-arguments/fn-body))))
            (reversef inner-arguments/macro-body)
            (reversef inner-arguments/fn-body)
            (bind ()
              (dolist (arg args-to-remove-from-fn)
                (removef fn-args arg))