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

(make-exchanger): Added. Thanks to Clinton Ebadi!

Browse source
This commit is contained in:
Marius Vollmer 2002-07-08 20:55:20 +00:00
parent 9ffa41dbae
commit 6012c379ae
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/slib.scm
View file

@ -326,3 +326,6 @@ no other easy or unambiguous way of detecting such features."
(set-cdr! entry path-name) (set-cdr! entry path-name)
(set! *catalog* (set! *catalog*
(acons name path-name *catalog*)))))) (acons name path-name *catalog*))))))
(define (make-exchanger obj)
(lambda (rep) (let ((old obj)) (set! obj rep) old)))