From 5804ed98594485d8d2bfa210d7d689899747ee47 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Mon, 7 Nov 2022 01:07:34 +0100
Subject: add chicken record-printer

---
 implementation/flexvectors-body3.scm | 8 ++++++++
 implementation/flexvectors.sld       | 3 ++-
 2 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100644 implementation/flexvectors-body3.scm

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"))
-- 
cgit 1.4.1