1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00

* boot-9.scm (print-vector): Renamed weak-hash-table? -->

weak-key-hash-table?.  (Again!)
This commit is contained in:
Mikael Djurfeldt 1996-08-21 11:11:38 +00:00
parent 4e378733a6
commit 074fa9cff4

View file

@ -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))))