From 2b7266994d4e359efff8a8447411122db3106670 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Wed, 13 Feb 2002 14:36:10 +0000 Subject: [PATCH] Treat setting to #f as delete. --- scsh/weaktables.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/weaktables.scm b/scsh/weaktables.scm index 9405212..1a3163c 100644 --- a/scsh/weaktables.scm +++ b/scsh/weaktables.scm @@ -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)))