Commit 60a84f8f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Rearrange nest slightly, using backquote.

parent d8e484ed
......@@ -534,8 +534,9 @@ shall be declared with a serial dependency in system definitions.
(if from-end `(nest ,@things) `(tsen ,@things)))
(defmacro nest (&rest things)
(reduce #'(lambda (outer inner) (append outer (list inner)))
(reduce #'(lambda (outer inner) `(,@outer ,inner))
things :from-end t))
#| Note: in Scheme, you could do
(define-syntax nest
(syntax-rules ()
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment