Changeset 39723 in project


Ignore:
Timestamp:
03/16/21 19:23:49 (2 months ago)
Author:
Kon Lovett
Message:

fix queue operation results

Location:
release/5/mailbox/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/mailbox/trunk/inline-queue.scm

    r39722 r39723  
    388388      (unless succ?
    389389        (on-full)
    390         (loop) ) ) ) )
     390        (loop) )
     391      val ) ) )
    391392
    392393(define-inline (%queue-remove! q
     
    397398      (unless succ?
    398399        (on-empty)
    399         (loop) ) ) ) )
     400        (loop) )
     401      val ) ) )
    400402
    401403(define-inline (%queue-push-back! q v
     
    406408      (unless succ?
    407409        (on-full)
    408         (loop) ) ) ) )
     410        (loop) )
     411      val ) ) )
    409412
    410413(define-inline (%queue-push-back-list! q ls
     
    415418      (unless succ?
    416419        (on-full)
    417         (loop) ) ) ) )
     420        (loop) )
     421      val ) ) )
    418422
    419423(define-inline (%make-queue-cursor q)
  • release/5/mailbox/trunk/mailbox.scm

    r39721 r39723  
    245245;; Time Support
    246246
    247 (define-inline (%time-number? obj)
    248   (or (fixnum? obj) (flonum? obj)) )
    249 
    250 (define-inline (%timeout? obj)
    251   (or (%time-number? obj) (time? obj)) )
     247(define-inline (%time-number? x)  (or (fixnum? x) (flonum? x)))
     248(define-inline (%timeout? x)      (or (%time-number? x) (time? x)))
    252249
    253250(define (error-timeout loc obj #!optional argnam)
    254251  (##sys#signal-hook #:type-error loc (make-error-type-message 'timeout argnam) obj) )
    255252
     253;chgd to drop `%' prefix
    256254(define (timeout? obj) (%timeout? obj))
    257 
    258255(define-inline-check-type timeout)
    259256
     
    348345    (%mailbox-cursor-state mbc)) )
    349346
    350 (define (%mailbox-cursor-unwound? mbc)
     347(define-inline (%mailbox-cursor-unwound? mbc)
    351348  (%queue-cursor-unwound?
    352349    (%mailbox-queue (%mailbox-cursor-mailbox mbc))
Note: See TracChangeset for help on using the changeset viewer.