From 074fa9cff4ee74af19f6b0dd3e57dbaafb6c84ec Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 21 Aug 1996 11:11:38 +0000 Subject: [PATCH] * boot-9.scm (print-vector): Renamed weak-hash-table? --> weak-key-hash-table?. (Again!) --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 73f9c2298..676c42a92 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -353,7 +353,7 @@ (define (print-vector obj port depth length style table) (if (= 0 length) (cond - ((weak-hash-table? obj) (display "#wh(" port)) + ((weak-key-hash-table? obj) (display "#wh(" port)) ((weak-value-hash-table? obj) (display "#whv(" port)) ((doubly-weak-hash-table? obj) (display "#whd(" port)) (else (display "#(" port))))