Changeset 39868 in project


Ignore:
Timestamp:
04/06/21 02:57:40 (4 months ago)
Author:
Kon Lovett
Message:

use format

File:
1 edited

Legend:

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

    r39857 r39868  
    6464  (chicken condition)
    6565  (chicken type)
    66   (only (chicken format) fprintf)
     66  (only (chicken format) format)
    6767  (only (chicken string) ->string)
    6868  (only (srfi 1) append! delete! list-copy last-pair)
     
    561561
    562562(define (mailbox-print mb out)
    563   (fprintf out "#<mailbox ~A queued: ~A waiters: ~A>"
     563  (format out "#<mailbox ~A queued: ~A waiters: ~A>"
    564564    (%mailbox-name mb)
    565565    (%mailbox-queue-count mb)
     
    626626
    627627(define (mailbox-cursor-print mbc out)
    628   (fprintf out "#<mailbox-cursor mailbox: ~A status: ~A>"
     628  (format out "#<mailbox-cursor mailbox: ~A status: ~A>"
    629629    (%mailbox-name (%mailbox-cursor-mailbox mbc))
    630630    (if (%mailbox-cursor-winding? mbc) "winding" "rewound")) )
Note: See TracChangeset for help on using the changeset viewer.