compat: Fix parameter setting.
* gash/compat.scm [mes] (make-parameter): Add missing argument to 'fluid-set!' invocation.
This commit is contained in:
parent
00c794c9a6
commit
ddb5c7ef36
|
@ -131,7 +131,7 @@
|
||||||
(if (eq? new-value *fluid-accessor*)
|
(if (eq? new-value *fluid-accessor*)
|
||||||
fluid
|
fluid
|
||||||
(let ((old-value (fluid-ref fluid)))
|
(let ((old-value (fluid-ref fluid)))
|
||||||
(fluid-set! new-value)
|
(fluid-set! fluid new-value)
|
||||||
old-value))))))
|
old-value))))))
|
||||||
|
|
||||||
(define-syntax-rule (parameterize ((param value) ...) body ...)
|
(define-syntax-rule (parameterize ((param value) ...) body ...)
|
||||||
|
|
Loading…
Reference in New Issue