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

Use rethrow instead of throw in a few places

db4
Slava Pestov 2008-02-16 18:49:05 -06:00
parent c3bb6b911b
commit 813c1d2f94
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/concurrency/concurrency.factor
View File

@ -145,12 +145,12 @@ M: process send ( message process -- )
: receive ( -- message )
self process-mailbox mailbox-get dup linked-exception? [
linked-exception-error throw
linked-exception-error rethrow
] when ;
: receive-if ( pred -- message )
self process-mailbox mailbox-get? dup linked-exception? [
linked-exception-error throw
linked-exception-error rethrow
] when ; inline
: rethrow-linked ( error -- )
@ -285,7 +285,7 @@ TUPLE: future value processes ;
#! place the result on the stack. Return the result
#! immediately if the future has completed.
dup future-value [
first2 [ throw ] unless
first2 [ rethrow ] unless
] [
dup [ future-processes push stop ] curry callcc0 ?future
] ?if ;