mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

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

Browse source 
weak-key-hash-table?.  (Again!)
This commit is contained in:
Mikael Djurfeldt 1996-08-21 11:11:38 +00:00
parent 4e378733a6
commit 074fa9cff4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/boot-9.scm
View file

@ -353,7 +353,7 @@
(define (print-vector obj port depth length style table) (define (print-vector obj port depth length style table)
(if (= 0 length) (if (= 0 length)
(cond (cond
((weak-hash-table? obj) (display "#wh(" port)) ((weak-key-hash-table? obj) (display "#wh(" port))
((weak-value-hash-table? obj) (display "#whv(" port)) ((weak-value-hash-table? obj) (display "#whv(" port))
((doubly-weak-hash-table? obj) (display "#whd(" port)) ((doubly-weak-hash-table? obj) (display "#whd(" port))
(else (display "#(" port)))) (else (display "#(" port))))