summary refs log tree commit diff
path: root/implementation
diff options
context:
space:
mode:
authorLeah Neukirchen <leah@vuxu.org>2022-11-07 01:07:34 +0100
committerLeah Neukirchen <leah@vuxu.org>2022-11-07 01:07:34 +0100
commit5804ed98594485d8d2bfa210d7d689899747ee47 (patch)
treedabe59bddf0c79fe552a3abe98c043c29b495ca3 /implementation
parent5a55faff82686e342de8c65db3a655d5d69d3557 (diff)
downloadsrfi-214-5804ed98594485d8d2bfa210d7d689899747ee47.tar.gz
srfi-214-5804ed98594485d8d2bfa210d7d689899747ee47.tar.xz
srfi-214-5804ed98594485d8d2bfa210d7d689899747ee47.zip
add chicken record-printer
Diffstat (limited to 'implementation')
-rw-r--r--implementation/flexvectors-body3.scm8
-rw-r--r--implementation/flexvectors.sld3
2 files changed, 10 insertions, 1 deletions
diff --git a/implementation/flexvectors-body3.scm b/implementation/flexvectors-body3.scm
new file mode 100644
index 0000000..08c00e0
--- /dev/null
+++ b/implementation/flexvectors-body3.scm
@@ -0,0 +1,8 @@
+(import (only (chicken base)
+           set-record-printer!))
+
+(set-record-printer! Flexvector
+  (lambda (x out)
+    (display "#<flexvector " out)
+    (display (flexvector->vector x) out)
+    (display ">" out)))
diff --git a/implementation/flexvectors.sld b/implementation/flexvectors.sld
index 8526029..edf6251 100644
--- a/implementation/flexvectors.sld
+++ b/implementation/flexvectors.sld
@@ -47,4 +47,5 @@
           (srfi 145))
 
   (include "flexvectors-body1.scm")
-  (include "flexvectors-body2.scm"))
+  (include "flexvectors-body2.scm")
+  (include "flexvectors-body3.scm"))