diff options
| -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")) |