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:
parent
9ffa41dbae
commit
6012c379ae
1 changed files with 3 additions and 0 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue