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) (define (weak-table-walk proc table)
(table-walk (table-walk
(lambda (number value) (lambda (number value)
(if (weak-pointer? value) (weak-pointer-ref value) value)) (proc number (if (weak-pointer? value) (weak-pointer-ref value) value)))
table)) table))
(define (strengthen-weak-table-ref table number) (define (strengthen-weak-table-ref table number)