Commit 43f6b340 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Note about nest.

parent 9442152f
......@@ -536,6 +536,15 @@ shall be declared with a serial dependency in system definitions.
(defmacro nest (&rest things)
(reduce #'(lambda (outer inner) (append outer (list inner)))
things :from-end t))
#| Note: in Scheme, you could do
(define-syntax nest
(syntax-rules ()
((nest x) x)
((nest (x ...) y z ...) (x ... (nest y z ...)))))
or in Racket, directly use the related but different form nest from scheme/nest:
http://docs.racket-lang.org/scheme/nest.html?q=nest#(form._((lib._scheme/nest..rkt)._nest))
(racket:nest (x ...) . body) ==> (my:nest x ... body)
|#
(defmacro tsen (&rest things)
(reduce #'(lambda (inner outer) (append outer (list inner)))
......
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