Changeset 36571 in project


Ignore:
Timestamp:
09/09/18 20:02:55 (13 days ago)
Author:
kon
Message:

reflow

File:
1 edited

Legend:

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

    r36563 r36571  
    169169
    170170(define-inline (%mailbox-queue-first-pair mb)
    171         (%queue-first-pair (%mailbox-queue mb)) )
     171  (%queue-first-pair (%mailbox-queue mb)) )
    172172
    173173(define-inline (%mailbox-queue-last-pair mb)
    174         (%queue-last-pair (%mailbox-queue mb)) )
     174  (%queue-last-pair (%mailbox-queue mb)) )
    175175
    176176(define-inline (%mailbox-queue-empty? mb)
    177         (%queue-empty? (%mailbox-queue mb)) )
     177  (%queue-empty? (%mailbox-queue mb)) )
    178178
    179179(define-inline (%mailbox-queue-count mb)
    180         (%queue-count (%mailbox-queue mb)) )
     180  (%queue-count (%mailbox-queue mb)) )
    181181
    182182(define-inline (%mailbox-queue-add! mb x)
    183         (%queue-add! (%mailbox-queue mb) x) )
     183  (%queue-add! (%mailbox-queue mb) x) )
    184184
    185185(define-inline (%mailbox-queue-remove! mb)
    186         (%queue-remove! (%mailbox-queue mb)) )
     186  (%queue-remove! (%mailbox-queue mb)) )
    187187
    188188(define-inline (%mailbox-queue-push-back! mb x)
    189         (%queue-push-back! (%mailbox-queue mb) x) )
     189  (%queue-push-back! (%mailbox-queue mb) x) )
    190190
    191191(define-inline (%mailbox-queue-push-back-list! mb ls)
    192         (%queue-push-back-list! (%mailbox-queue mb) ls) )
     192  (%queue-push-back-list! (%mailbox-queue mb) ls) )
    193193
    194194;; Waiting threads
     
    449449;
    450450(define (mailbox-waiting? mb)
    451   (not
    452     ($null?
    453       (%mailbox-waiters (%check-mailbox 'mailbox-waiting? mb)))) )
     451  (not ($null? (%mailbox-waiters (%check-mailbox 'mailbox-waiting? mb)))) )
    454452
    455453(: mailbox-waiters (mailbox --> list))
    456454;
    457455(define (mailbox-waiters mb)
    458   ($list-copy
    459     (%mailbox-waiters (%check-mailbox 'mailbox-waiters mb))) )
     456  ($list-copy (%mailbox-waiters (%check-mailbox 'mailbox-waiters mb))) )
    460457
    461458;; Mailbox Operations
     
    488485;
    489486(define (mailbox-push-back! mb x)
    490   (%mailbox-queue-push-back!
    491     (%check-mailbox 'mailbox-send! mb) x)
     487  (%mailbox-queue-push-back! (%check-mailbox 'mailbox-send! mb) x)
    492488  (ready-mailbox-thread! mb) )
    493489
     
    507503;
    508504(define (make-mailbox-cursor mb)
    509   (%make-mailbox-cursor
    510     (%check-mailbox 'make-mailbox-cursor mb)) )
     505  (%make-mailbox-cursor (%check-mailbox 'make-mailbox-cursor mb)) )
    511506
    512507;; Mailbox Cursor Properties
     
    520515;
    521516(define (mailbox-cursor-mailbox mbc)
    522   (%mailbox-cursor-mailbox
    523     (%check-mailbox-cursor 'mailbox-cursor-mailbox mbc)) )
     517  (%mailbox-cursor-mailbox (%check-mailbox-cursor 'mailbox-cursor-mailbox mbc)) )
    524518
    525519(: mailbox-cursor-rewound? (mailbox-cursor --> boolean))
    526520;
    527521(define (mailbox-cursor-rewound? mbc)
    528   (not
    529     (%mailbox-cursor-winding?
    530       (%check-mailbox-cursor 'mailbox-cursor-rewound? mbc))) )
     522  (not (%mailbox-cursor-winding? (%check-mailbox-cursor 'mailbox-cursor-rewound? mbc))) )
    531523
    532524(: mailbox-cursor-unwound? (mailbox-cursor --> boolean))
    533525;
    534526(define (mailbox-cursor-unwound? mbc)
    535   ($null?
    536     (%mailbox-cursor-next-pair
    537       (%check-mailbox-cursor 'mailbox-cursor-unwound? mbc))) )
     527  ($null? (%mailbox-cursor-next-pair (%check-mailbox-cursor 'mailbox-cursor-unwound? mbc))) )
    538528
    539529;; Mailbox Cursor Operations
     
    542532;
    543533(define (mailbox-cursor-rewind mbc)
    544   (%mailbox-cursor-rewind!
    545     (%check-mailbox-cursor 'mailbox-cursor-rewind mbc)) )
     534  (%mailbox-cursor-rewind! (%check-mailbox-cursor 'mailbox-cursor-rewind mbc)) )
    546535
    547536(: mailbox-cursor-next (mailbox-cursor #!optional timeout * -> *))
     
    577566;
    578567(define (mailbox-cursor-extract-and-rewind! mbc)
    579   (%mailbox-cursor-extract!
    580     (%check-mailbox-cursor 'mailbox-cursor-extract-and-rewind! mbc))
     568  (%mailbox-cursor-extract! (%check-mailbox-cursor 'mailbox-cursor-extract-and-rewind! mbc))
    581569  (%mailbox-cursor-rewind! mbc) )
    582570
Note: See TracChangeset for help on using the changeset viewer.