1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 04:00:26 +02:00

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

This commit is contained in:
Marius Vollmer 2002-07-08 20:55:20 +00:00
parent 9ffa41dbae
commit 6012c379ae

View file

@ -326,3 +326,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)))