Changeset 39744 in project


Ignore:
Timestamp:
03/19/21 18:17:00 (5 weeks ago)
Author:
Kon Lovett
Message:

remove "undefined" operations

File:
1 edited

Legend:

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

    r39743 r39744  
    2424
    2525(define (queue-unlimited-room q) (queue-unlimited-limit q))
    26 
    27 (define (queue-unlimited-limit-set! q v)
    28   (error 'queue-unlimited-limit-set! "immutable" v) )
    2926
    3027(define (queue-unlimited-count-add! q n)
     
    175172  (make-queue-limited vc st ed)
    176173  (queue-limited?)
    177   (vc queue-limited-vector queue-limited-vector-set!)
     174  (vc queue-limited-vector)
    178175  (st queue-limited-start queue-limited-start-set!)
    179176  (ed queue-limited-end queue-limited-end-set!) )
     
    190187  (fx- (vector-length (queue-limited-vector q)) 1) )
    191188
    192 (define (queue-limited-limit-set! q v)
    193   (error 'queue-limited-limit-set! "immutable" v) )
    194 
    195189(define (queue-limited-index-inc q i)
    196190  (fxmod (fx+ i 1) (queue-limited-limit q)) )
     
    213207(define (queue-limited-count q)
    214208  (fxabs (fx- (queue-limited-end q) (queue-limited-start q))) )
    215 
    216 (define (queue-limited-count-set! q v)
    217   (error 'queue-limited-count-set! "immutable" v) )
    218209
    219210(define (queue-limited-empty? q #!optional (n 0))
     
    334325(define (queue-unbuffered-limit q) 1)
    335326
    336 (define (queue-unbuffered-limit-set! q v)
    337   (error 'queue-unbuffered-limit-set! "immutable" v) )
    338 
    339327(define (queue-unbuffered-count q)
    340328  (if (queue-unbuffered-maybe? q) 1 0) )
    341 
    342 (define (queue-unbuffered-count-set! q v)
    343   (error 'queue-unbuffered-count-set! "immutable" v) )
    344329
    345330(define (queue-unbuffered-empty? q #!optional (n 0))
     
    438423    (else                  (queue-unbuffered-limit q)) ) )
    439424
    440 (define (queue-limit-set! q v)
    441   (cond
    442     ((queue-unlimited? q)  (queue-unlimited-limit-set! q v))
    443     ((queue-limited? q)    (queue-limited-limit-set! q v))
    444     (else                  (queue-unbuffered-limit-set! q v)) ) )
    445 
    446425(define (queue-count q)
    447426  (cond
     
    449428    ((queue-limited? q)    (queue-limited-count q))
    450429    (else                  (queue-unbuffered-count q)) ) )
    451 
    452 (define (queue-count-set! q v)
    453   (cond
    454     ((queue-unlimited? q)  (queue-unlimited-count-set! q v))
    455     ((queue-limited? q)    (queue-limited-count-set! q v))
    456     (else                  (queue-unbuffered-count-set! q v)) ) )
    457430
    458431(define (queue-room q)
Note: See TracChangeset for help on using the changeset viewer.