Changeset 39729 in project


Ignore:
Timestamp:
03/17/21 00:07:28 (2 months ago)
Author:
Kon Lovett
Message:

set new start after push-back

File:
1 edited

Legend:

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

    r39728 r39729  
    199199  ;move "down" from start to start-1; kinda like extract below
    200200  (let loop ((i (%queue-limited-start q)) (ls (reverse ls)))
    201     (unless (null? ls)
     201    (if (null? ls)
     202      (%queue-limited-start-set! q i)
    202203      (let ((i-1 (%queue-limited-index-dec q i)))
    203204        (%queue-limited-poke! q i-1 (car ls))
Note: See TracChangeset for help on using the changeset viewer.