Commits

Moritz Heidkamp committed cde1640

nicer printer

Comments (0)

Files changed (1)

   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)