1. Moritz Heidkamp
  2. channel

Commits

Moritz Heidkamp  committed cde1640

nicer printer

  • Participants
  • Parent commits 74e3b6b
  • Branches master

Comments (0)

Files changed (1)

File channel.scm

View file
   cvar)
 
 (define-record-printer (channel c out)
-  (display "#<channel " out)
-  (write (queue->list (channel-queue c)) out)
+  (display "#<channel" out)
+  (for-each (lambda (x) (display " " out) (write x out))
+            (queue->list (channel-queue c)))
   (display ">" out))
 
 (define %make-channel make-channel)