Changeset 33488 in project for release/5


Ignore:
Timestamp:
07/14/16 21:25:11 (3 years ago)
Author:
sjamaan
Message:

Apply srfi-18 bugfix from core to egg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-18/trunk/srfi-18.scm

    r33435 r33488  
    245245                          (##sys#signal
    246246                           (##sys#make-structure 'condition '(join-timeout-exception) '())) ) )
    247                      (##sys#thread-block-for-termination! ct thread) ) )
     247                     (begin
     248                       (##sys#thread-block-for-termination! ct thread)
     249                       (##sys#schedule) ) ))
    248250                (else
    249251                 (##sys#error 'thread-join!
Note: See TracChangeset for help on using the changeset viewer.