ice-9/slib.scm patch

[Clinton Ebadi]

The ice-9 slib module doesn't work with slib 2d4 because it doesn't define 
make-exchanger. This patch adds make-exchanger to ice-9/slib.scm (on a 
related note, slib appears to have had a guile.init for over a year; if it 
hasn't already been done someone should probably look at guile.init and 
ice-9/slib.scm and see ice-9/slib.scm needs to be updated):

*** ice-9/slib.scm.orig Fri Jul  5 21:50:30 2002
--- ice-9/slib.scm      Fri Jul  5 21:54:37 2002
***************
*** 51,57 ****
           scheme-implementation-type
           scheme-implementation-version
           make-random-state
!          require)
    :no-backtrace)
  
   
--- 51,58 ----
           scheme-implementation-type
           scheme-implementation-version
           make-random-state
!          require
!          make-exchanger)
    :no-backtrace)
  
   
***************
*** 286,288 ****
--- 287,292 ----
          (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)))



-- 
http://unknownlamer.org
Facts do not cease to exist because they are ignored.
                -- Aldous Huxley
Flag Burner.