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}
|
;;; {Module System Macros}
|
||||||
;;;
|
;;;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue