implementation/flexvectors-body3.scm


1
2
3
4
5
6
7
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)))