Changeset 39730 in project

Timestamp:

03/17/21 00:13:51 (5 weeks ago)

Author:

Kon Lovett

Message:

revert unbuffered push-back impl

File:

• release/5/mailbox/trunk/inline-queue.scm (modified) (1 diff)

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

@@ -289 +289 @@
 
 (define-inline (%queue-unbuffered-push-back-list! q ls)
-  (for-each (lambda (v) (%queue-unbuffered-add! q v)) (reverse ls)) )
+  ;assert length ls = 1
+  (%queue-unbuffered-add! q (car ls)) )
 
 (define-inline (%make-queue-unbuffered-cursor) (cons -1 (void)))