~ chicken-core (chicken-5) f4f1ce51affa0295314a5d120627664bd432f0aa

commit f4f1ce51affa0295314a5d120627664bd432f0aa
Author:     unknown <felix@.(none)>
AuthorDate: Mon Oct 26 15:21:06 2009 +0100
Commit:     unknown <felix@.(none)>
CommitDate: Mon Oct 26 15:21:06 2009 +0100

    printer for hash-tables shows current size

diff --git a/srfi-69.scm b/srfi-69.scm
index 36ed0fbb..9144f837 100644
--- a/srfi-69.scm
+++ b/srfi-69.scm
@@ -1087,3 +1087,13 @@
   (##sys#check-structure ht 'hash-table 'hash-table-map)
   (##sys#check-closure func 'hash-table-map)
   (*hash-table-fold ht (lambda (k v a) (cons (func k v) a)) '()) )
+
+
+;;; printing
+
+(##sys#register-record-printer
+ 'hash-table
+ (lambda (ht port)
+   (##sys#print "#<hash-table (" #f port)
+   (##sys#print (##sys#slot ht 2) #f port)
+   (##sys#print ")>" #f port) ) )