Changeset 34361 in project


Ignore:
Timestamp:
08/25/17 20:20:23 (4 weeks ago)
Author:
kon
Message:

just cond chgs, not err yet

Location:
release/4/mailbox/trunk
Files:
2 edited

Legend:

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

    r34359 r34361  
    307307    ;Timeout wanted so sleep until something happens
    308308    (timout
     309      (cond
     310        ((thread-sleep/maybe-unblock! timout UNBLOCKED-TAG)
     311          ;Timed-out, so no message
     312          ;Remove from wait queue
     313          (%mailbox-waiters-delete! mb ($current-thread))
     314          ;Indicate no available message
     315          (timeout-exit!) )
     316        (else
     317          ;Unblocked early
     318          UNBLOCKED-TAG ) )
     319      #; ;NOT YET
    309320      (if (eq? ($current-thread) ##sys#primordial-thread)
    310321        (begin
  • release/4/mailbox/trunk/tests/run.scm

    r34359 r34361  
    77(system "csi -n -s mailbox-cursor-test.scm")
    88
     9#|
    910(system "csc mailbox-primordial-test.scm")
    1011(cond-expand
     
    1314  (else
    1415    (system "mailbox-primordial-test") ) )
     16|#
Note: See TracChangeset for help on using the changeset viewer.