diff options
Diffstat (limited to 'implementation/flexvectors-body3.scm')
| -rw-r--r-- | implementation/flexvectors-body3.scm | 8 |
1 files changed, 8 insertions, 0 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))) |