steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

concurrency: Rename wait-timeout to timed-out-error for clarity. Add the timer that timed out to the error tuple.

db4
Doug Coleman 2014-06-06 10:10:09 -07:00
parent ee9b803252
commit ffed1387ab
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/concurrency/conditions/conditions.factor
View File

@ -20,7 +20,7 @@ IN: concurrency.conditions
] ]
] dip later ; ] dip later ;
ERROR: wait-timeout ; ERROR: timed-out-error timer ;
: queue ( queue -- ) : queue ( queue -- )
[ self ] dip push-front ; inline [ self ] dip push-front ; inline
@ -28,7 +28,7 @@ ERROR: wait-timeout ;
: wait ( queue timeout status -- ) : wait ( queue timeout status -- )
over [ over [
[ queue-timeout ] dip suspend [ queue-timeout ] dip suspend
[ wait-timeout ] [ stop-timer ] if [ timed-out-error ] [ stop-timer ] if
] [ ] [
[ drop queue ] dip suspend drop [ drop queue ] dip suspend drop
] if ; inline ] if ; inline

2
basis/concurrency/mailboxes/mailboxes-tests.factor
View File

@ -51,4 +51,4 @@ IN: concurrency.mailboxes.tests
[ [
<mailbox> 1 seconds mailbox-get-timeout <mailbox> 1 seconds mailbox-get-timeout
] [ wait-timeout? ] must-fail-with ] [ timed-out-error? ] must-fail-with