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

Treat setting to #f as delete.

This commit is contained in:
mainzelm 2002-02-13 14:36:10 +00:00
parent 9e2d0ca60c
commit 2b7266994d
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

@ -5,7 +5,7 @@
(define make-weak-table make-table)
(define (weak-table-set! table number set-me)
(table-set! table number (make-weak-pointer set-me)))
(table-set! table number (if set-me (make-weak-pointer set-me) #f)))
(define (weak-table-ref table number)
(let ((ref (table-ref table number)))