Changeset 39722 in project

Timestamp:

03/16/21 17:47:02 (5 weeks ago)

Author:

Kon Lovett

Message:

fix queue predicate arg, fix generic proc define

File:

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

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

@@ -21 +21 @@
 
 (define-inline (%queue-unlimited-limit q) most-positive-fixnum)
+
+(define-inline (%queue-unlimited-room q) (%queue-unlimited-limit q))
 
 (define-inline (%queue-unlimited-limit-set! q v)
@@ -97 +99 @@
   (%->boolean (%queue-unlimited-cursor-prev-pair c)) )
 
-(define (%queue-unlimited-cursor-unwound? q c)
+(define-inline (%queue-unlimited-cursor-unwound? q c)
   (null? (%queue-unlimited-cursor-next-pair c)) )
 
@@ -201 +203 @@
   (error '%queue-limited-cursor-winding? "unsupported" q c) )
 
-(define (%queue-limited-cursor-unwound? q c)
+(define-inline (%queue-limited-cursor-unwound? q c)
   (error '%queue-limited-cursor-unwound? "unsupported" q c) )
 
@@ -267 +269 @@
   (error '%queue-unbuffered-cursor-winding? "unsupported" q c) )
 
-(define (%queue-unbuffered-cursor-unwound? q c)
+(define-inline (%queue-unbuffered-cursor-unwound? q c)
   (error '%queue-unbuffered-cursor-unwound? "unsupported" q c) )
 
@@ -300 +302 @@
 (define-inline (%queue? x)
   (or
-    (%queue-unlimited? q)
-    (%queue-limited? q)
-    (%queue-unbuffered? q) ) )
-
-(define (%queue-limit q)
+    (%queue-unlimited? x)
+    (%queue-limited? x)
+    (%queue-unbuffered? x) ) )
+
+(define-inline (%queue-limit q)
   (cond
     ((%queue-unlimited? q)  (%queue-unlimited-limit q))
@@ -310 +312 @@
     (else                   (%queue-unbuffered-limit q)) ) )
 
-(define (%queue-limit-set! q v)
+(define-inline (%queue-limit-set! q v)
   (cond
     ((%queue-unlimited? q)  (%queue-unlimited-limit-set! q v))
@@ -316 +318 @@
     (else                   (%queue-unbuffered-limit-set! q v)) ) )
 
-(define (%queue-count q)
+(define-inline (%queue-count q)
   (cond
     ((%queue-unlimited? q)  (%queue-unlimited-count q))
@@ -322 +324 @@
     (else                   (%queue-unbuffered-count q)) ) )
 
-(define (%queue-count-set! q v)
+(define-inline (%queue-count-set! q v)
   (cond
     ((%queue-unlimited? q)  (%queue-unlimited-count-set! q v))
@@ -427 +429 @@
     (else                   (%queue-unbuffered-cursor-winding? q c)) ) )
 
-(define (%queue-cursor-unwound? q c)
+(define-inline (%queue-cursor-unwound? q c)
   (cond
     ((%queue-unlimited? q)  (%queue-unlimited-cursor-unwound? q c))