From a1ef85b5fab8dea3f9d2144102079de198d8ee3e Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Wed, 7 Dec 2022 22:27:35 +0100
Subject: add hash-table record printer

---
 mew.scm        | 8 ++++++++
 tests/test.mew | 5 ++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/mew.scm b/mew.scm
index 917ce6c..a6ac371 100644
--- a/mew.scm
+++ b/mew.scm
@@ -1181,6 +1181,14 @@
                      (str (substring old-prompt 0 2)
                           "^_^;"
                           (substring old-prompt 2))))))
+  (set-record-printer! 'hash-table
+    (lambda (h out)
+      (format out "#<hash-table")
+      (if (< 0 (hash-table-size h) 100)
+        (hash-table-for-each h (lambda (k v)
+                                 (format out " (~s . ~s)" k v)))
+        (format out " (~a)" (hash-table-size h)))
+      (format out ">")))
 
   (set-pseudo-random-seed! (random-bytes))
 )
diff --git a/tests/test.mew b/tests/test.mew
index 589b63e..1fe7ec1 100644
--- a/tests/test.mew
+++ b/tests/test.mew
@@ -329,7 +329,10 @@
   (test-assert (hash-table? (tbl 1 2 3 4)))
   (test 0 (hash-table-size (tbl)))
   (test 42 (get (tbl 1 2 3 42) 3))
-  (test-error (tbl 1 2 3)))
+  (test-error (tbl 1 2 3))
+
+  (test "#<hash-table (0)>" (format "~a" (tbl)))
+  (test "#<hash-table (42 . \"foo\")>" (format "~a" (tbl 42 "foo"))))
 
 (test-group "set-at"
   (test #(0 42 0) (set-at #(0 0 0) 1 42))
-- 
cgit 1.4.1