mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

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

Browse source
This commit is contained in:
Marius Vollmer 2002-07-08 20:53:43 +00:00
parent a25758e7ea
commit 2536ce07ea
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

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