boot6
This commit is contained in:
parent
1b828576b0
commit
814b242e90
|
@ -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}
|
||||
;;;
|
||||
|
||||
|
|
Loading…
Reference in New Issue