Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 05:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

don't check for a timeout on thread-join! unless one was specified

Browse source
This commit is contained in:
Alex Shinn 2012-07-21 18:46:56 +09:00
parent fd87e62ec0
commit a3daf9f728
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/18/interface.scm
View file

@ -14,12 +14,12 @@
(define thread-yield! yield!)
(define (thread-join! thread . o)
(let ((timeout (if (pair? o) (car o) #f)))
(let ((timeout (and (pair? o) (car o))))
(cond
((%thread-join! thread (timeout->seconds timeout)))
(else
(thread-yield!)
(if (thread-timeout?)
(if (and timeout (thread-timeout?))
(if (and (pair? o) (pair? (cdr o)))
(cadr o)
(error "timed out waiting for thread" thread))