scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed bug in weak-table-walk.

This commit is contained in:
mainzelm 2001-10-03 14:40:04 +00:00
parent e2eeaa4789
commit 8c3cda1e0e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/weaktables.scm
View File

@ -14,7 +14,7 @@
(define (weak-table-walk proc table)
(table-walk
(lambda (number value)
(if (weak-pointer? value) (weak-pointer-ref value) value))
(proc number (if (weak-pointer? value) (weak-pointer-ref value) value)))
table))
(define (strengthen-weak-table-ref table number)