Changeset 39857 in project


Ignore:
Timestamp:
04/06/21 00:27:24 (3 weeks ago)
Author:
Kon Lovett
Message:

use fprintf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/mailbox/trunk/mailbox.scm

    r39773 r39857  
    6464  (chicken condition)
    6565  (chicken type)
    66   (only (chicken port) with-output-to-port)
    67   (only (chicken format) printf)
     66  (only (chicken format) fprintf)
    6867  (only (chicken string) ->string)
    6968  (only (srfi 1) append! delete! list-copy last-pair)
     
    562561
    563562(define (mailbox-print mb out)
    564   (with-output-to-port out
    565     (lambda ()
    566       (printf "#<mailbox ~A queued: ~A waiters: ~A>"
    567         (%mailbox-name mb)
    568         (%mailbox-queue-count mb)
    569         (%mailbox-waiters-count mb)) ) ) )
     563  (fprintf out "#<mailbox ~A queued: ~A waiters: ~A>"
     564    (%mailbox-name mb)
     565    (%mailbox-queue-count mb)
     566    (%mailbox-waiters-count mb)) )
    570567
    571568;;; Mailbox Cursor
     
    629626
    630627(define (mailbox-cursor-print mbc out)
    631   (with-output-to-port out
    632     (lambda ()
    633       (printf "#<mailbox-cursor mailbox: ~A status: ~A>"
    634       (%mailbox-name (%mailbox-cursor-mailbox mbc))
    635       (if (%mailbox-cursor-winding? mbc) "winding" "rewound")) ) ) )
     628  (fprintf out "#<mailbox-cursor mailbox: ~A status: ~A>"
     629    (%mailbox-name (%mailbox-cursor-mailbox mbc))
     630    (if (%mailbox-cursor-winding? mbc) "winding" "rewound")) )
    636631
    637632;;;
Note: See TracChangeset for help on using the changeset viewer.