diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-07 01:07:34 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-07 01:07:34 +0100 |
| commit | 5804ed98594485d8d2bfa210d7d689899747ee47 (patch) | |
| tree | dabe59bddf0c79fe552a3abe98c043c29b495ca3 | |
| parent | 5a55faff82686e342de8c65db3a655d5d69d3557 (diff) | |
| download | srfi-214-5804ed98594485d8d2bfa210d7d689899747ee47.tar.gz srfi-214-5804ed98594485d8d2bfa210d7d689899747ee47.tar.xz srfi-214-5804ed98594485d8d2bfa210d7d689899747ee47.zip | |
add chicken record-printer
| -rw-r--r-- | implementation/flexvectors-body3.scm | 8 | ||||
| -rw-r--r-- | implementation/flexvectors.sld | 3 |
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")) |