Changeset 34448 in project


Ignore:
Timestamp:
08/30/17 04:08:15 (3 months ago)
Author:
kon
Message:

forgot waitersi

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/mailbox/trunk/mailbox.scm

    r34364 r34448  
    277277
    278278(define (thread-sleep/maybe-unblock! tim unblocked-tag)
     279;(print "mailbox sleep/maybe-unblock!: " tim " " unblocked-tag)
    279280  ;Sleep current thread for desired seconds, unless unblocked "early".
    280281  (call/cc
     
    322323          (if (eq? ($current-thread) ##sys#primordial-thread)
    323324            (begin
     325              (%mailbox-waiters-delete! mb ($current-thread))
    324326              (warning "mailbox attempt to sleep primordial-thread" mb)
    325327              (timeout-exit!) )
Note: See TracChangeset for help on using the changeset viewer.