ice-9/slib.scm patch

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.

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel