Changeset 13533 in project


Ignore:
Timestamp:
03/06/09 07:29:05 (11 years ago)
Author:
Kon Lovett
Message:

Rmvd extra space in record print.

Location:
release/4/mailbox
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/mailbox/tags/2.0.0/mailbox.scm

    r13530 r13533  
    507507  (with-output-to-port out
    508508    (lambda ()
    509       (display "#<mailbox ")
    510       (display (%mailbox-name mb))
     509      (display "#<mailbox")
     510      (display #\space) (display (%mailbox-name mb))
    511511      (display " queued = ") (display (%mailbox-queue-count mb))
    512512      (display " waiters = ") (display (%mailbox-waiters-count mb))
     
    516516  (with-output-to-port out
    517517    (lambda ()
    518       (display "#<mailbox-cursor ")
     518      (display "#<mailbox-cursor")
    519519      (display " mailbox = ") (display (%mailbox-name (%mailbox-cursor-mailbox mbc)))
    520520      (display " status = ") (display (if (%mailbox-cursor-winding? mbc) "winding" "rewound"))
  • release/4/mailbox/trunk/mailbox.scm

    r13530 r13533  
    507507  (with-output-to-port out
    508508    (lambda ()
    509       (display "#<mailbox ")
    510       (display (%mailbox-name mb))
     509      (display "#<mailbox")
     510      (display #\space) (display (%mailbox-name mb))
    511511      (display " queued = ") (display (%mailbox-queue-count mb))
    512512      (display " waiters = ") (display (%mailbox-waiters-count mb))
     
    516516  (with-output-to-port out
    517517    (lambda ()
    518       (display "#<mailbox-cursor ")
     518      (display "#<mailbox-cursor")
    519519      (display " mailbox = ") (display (%mailbox-name (%mailbox-cursor-mailbox mbc)))
    520520      (display " status = ") (display (if (%mailbox-cursor-winding? mbc) "winding" "rewound"))
Note: See TracChangeset for help on using the changeset viewer.