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

Remove debugging print

release
Doug Coleman 2007-11-06 21:04:01 -06:00
parent e5b4177487
commit 028668cc09
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/concurrency/concurrency.factor
View File

@ -43,7 +43,6 @@ TUPLE: thread timeout continuation continued? ;
: (mailbox-block-if-empty) ( mailbox timeout -- mailbox2 ) : (mailbox-block-if-empty) ( mailbox timeout -- mailbox2 )
over mailbox-empty? [ over mailbox-empty? [
[ <thread> swap mailbox-threads push stop ] callcc0 [ <thread> swap mailbox-threads push stop ] callcc0
"(mailbox-block-if-empty)" print flush
(mailbox-block-if-empty) (mailbox-block-if-empty)
] [ ] [
drop drop