mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

setting a parameter returns the previous value

Browse source 
* module/ice-9/boot-9.scm (make-parameter): Setting a parameter by
  invoking it with an argument now returns the previous value.
This commit is contained in:
Andy Wingo 2011-12-05 16:37:17 +01:00
parent 90de5c4c2e
commit 13dd74c8ea
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/boot-9.scm
View file

@ -2872,7 +2872,9 @@ module '(ice-9 q) '(make-q q-length))}."
(make-struct <parameter> 0 (make-struct <parameter> 0
(case-lambda (case-lambda
(() (fluid-ref fluid)) (() (fluid-ref fluid))
((x) (fluid-set! fluid (conv x)))) ((x) (let ((prev (fluid-ref fluid)))
(fluid-set! fluid (conv x))
prev)))
fluid conv))) fluid conv)))
(define (parameter? x) (define (parameter? x)