diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-12-07 22:27:35 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-12-07 22:27:35 +0100 |
| commit | a1ef85b5fab8dea3f9d2144102079de198d8ee3e (patch) | |
| tree | 071aef7dc5eb9a8584aa62f5f181bf2040b3b808 /mew.scm | |
| parent | 9142bb19726b62492e2f4c6ecb8bc7a5fe9b712f (diff) | |
| download | mew-a1ef85b5fab8dea3f9d2144102079de198d8ee3e.tar.gz mew-a1ef85b5fab8dea3f9d2144102079de198d8ee3e.tar.xz mew-a1ef85b5fab8dea3f9d2144102079de198d8ee3e.zip | |
add hash-table record printer
Diffstat (limited to 'mew.scm')
| -rw-r--r-- | mew.scm | 8 |
1 files changed, 8 insertions, 0 deletions
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)) ) |