[Scsh-checkins] CVS: scsh-0.6/scsh weaktables.scm,1.1,1.2

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv30325

Modified Files:
        weaktables.scm 
Log Message:
Fixed bug in weak-table-walk.


Index: weaktables.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/weaktables.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** weaktables.scm      2001/07/07 19:29:29     1.1
--- weaktables.scm      2001/10/03 14:40:04     1.2
***************
*** 15,19 ****
    (table-walk
     (lambda (number value)
!      (if (weak-pointer? value) (weak-pointer-ref value) value))
     table))
  
--- 15,19 ----
    (table-walk
     (lambda (number value)
!      (proc number (if (weak-pointer? value) (weak-pointer-ref value) value)))
     table))