update
This commit is contained in:
@@ -18,6 +18,7 @@
|
||||
(promise))
|
||||
|
||||
(define-syntax (mac a) (list + 1 1))
|
||||
(define-syntax (add . args) (pair '+ args))
|
||||
|
||||
(define-syntax (when condition . body)
|
||||
:doc "Special form for when multiple actions should be done if a
|
||||
@@ -38,6 +39,7 @@ condition is true.
|
||||
`(if ,condition ,@body nil)
|
||||
`(if ,condition (begin ,@body) nil)))
|
||||
|
||||
|
||||
(define-syntax (unless condition . body)
|
||||
:doc "Special form for when multiple actions should be done if a
|
||||
condition is false."
|
||||
|
||||
Reference in New Issue
Block a user