From 2536ce07eaf49f2bae47740c88d4414f5064695f Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 8 Jul 2002 20:53:43 +0000 Subject: [PATCH] (make-exchanger): Added. Thanks to Clinton Ebadi! --- ice-9/slib.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ice-9/slib.scm b/ice-9/slib.scm index c787573f9..a8eacaeb5 100644 --- a/ice-9/slib.scm +++ b/ice-9/slib.scm @@ -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)))