Changeset 39730 in project


Ignore:
Timestamp:
03/17/21 00:13:51 (3 months ago)
Author:
Kon Lovett
Message:

revert unbuffered push-back impl

File:
1 edited

Legend:

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

    r39729 r39730  
    289289
    290290(define-inline (%queue-unbuffered-push-back-list! q ls)
    291   (for-each (lambda (v) (%queue-unbuffered-add! q v)) (reverse ls)) )
     291  ;assert length ls = 1
     292  (%queue-unbuffered-add! q (car ls)) )
    292293
    293294(define-inline (%make-queue-unbuffered-cursor) (cons -1 (void)))
Note: See TracChangeset for help on using the changeset viewer.