From 8c3cda1e0ee808350bde83dcbe7e84697112d6e9 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Wed, 3 Oct 2001 14:40:04 +0000 Subject: [PATCH] Fixed bug in weak-table-walk. --- scsh/weaktables.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/weaktables.scm b/scsh/weaktables.scm index 9d4d95c..9405212 100644 --- a/scsh/weaktables.scm +++ b/scsh/weaktables.scm @@ -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)