Changeset 39744 in project

Timestamp:

03/19/21 18:17:00 (5 weeks ago)

Author:

Kon Lovett

Message:

remove "undefined" operations

File:

• release/5/mailbox/trunk/inline-queue.scm (modified) (7 diffs)

release/5/mailbox/trunk/inline-queue.scm

@@ -24 +24 @@
 
 (define (queue-unlimited-room q) (queue-unlimited-limit q))
-
-(define (queue-unlimited-limit-set! q v)
-  (error 'queue-unlimited-limit-set! "immutable" v) )
 
 (define (queue-unlimited-count-add! q n)
@@ -175 +172 @@
   (make-queue-limited vc st ed)
   (queue-limited?)
-  (vc queue-limited-vector queue-limited-vector-set!)
+  (vc queue-limited-vector)
   (st queue-limited-start queue-limited-start-set!)
   (ed queue-limited-end queue-limited-end-set!) )
@@ -190 +187 @@
   (fx- (vector-length (queue-limited-vector q)) 1) )
 
-(define (queue-limited-limit-set! q v)
-  (error 'queue-limited-limit-set! "immutable" v) )
-
 (define (queue-limited-index-inc q i)
   (fxmod (fx+ i 1) (queue-limited-limit q)) )
@@ -213 +207 @@
 (define (queue-limited-count q)
   (fxabs (fx- (queue-limited-end q) (queue-limited-start q))) )
-
-(define (queue-limited-count-set! q v)
-  (error 'queue-limited-count-set! "immutable" v) )
 
 (define (queue-limited-empty? q #!optional (n 0))
@@ -334 +325 @@
 (define (queue-unbuffered-limit q) 1)
 
-(define (queue-unbuffered-limit-set! q v)
-  (error 'queue-unbuffered-limit-set! "immutable" v) )
-
 (define (queue-unbuffered-count q)
   (if (queue-unbuffered-maybe? q) 1 0) )
-
-(define (queue-unbuffered-count-set! q v)
-  (error 'queue-unbuffered-count-set! "immutable" v) )
 
 (define (queue-unbuffered-empty? q #!optional (n 0))
@@ -438 +423 @@
     (else                  (queue-unbuffered-limit q)) ) )
 
-(define (queue-limit-set! q v)
-  (cond
-    ((queue-unlimited? q)  (queue-unlimited-limit-set! q v))
-    ((queue-limited? q)    (queue-limited-limit-set! q v))
-    (else                  (queue-unbuffered-limit-set! q v)) ) )
-
 (define (queue-count q)
   (cond
@@ -449 +428 @@
     ((queue-limited? q)    (queue-limited-count q))
     (else                  (queue-unbuffered-count q)) ) )
-
-(define (queue-count-set! q v)
-  (cond
-    ((queue-unlimited? q)  (queue-unlimited-count-set! q v))
-    ((queue-limited? q)    (queue-limited-count-set! q v))
-    (else                  (queue-unbuffered-count-set! q v)) ) )
 
 (define (queue-room q)