This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-12-30 17:48:26 +01:00
parent 1b828576b0
commit 814b242e90
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 20 deletions

View File

@ -2199,26 +2199,6 @@
;;; {with-fluids}
;;;
;; with-fluids is a convenience wrapper for the builtin procedure
;; `with-fluids*'. The syntax is just like `let':
;;
;; (with-fluids ((fluid val)
;; ...)
;; body)
(defmacro with-fluids (bindings . body)
(let ((fluids (map car bindings))
(values (map cadr bindings)))
(if (and (= (length fluids) 1) (= (length values) 1))
`(with-fluid* ,(car fluids) ,(car values) (lambda () ,@body))
`(with-fluids* (list ,@fluids) (list ,@values)
(lambda () ,@body)))))
;;; {Module System Macros}
;;;