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

Fix concurrency:fulfill unbalanced stack issue

release
Chris Double 2007-10-12 10:17:57 +13:00
parent b832d8dedb
commit 5f3dde7e26
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
cp_dir Normal file → Executable file
View File

4
extra/concurrency/concurrency.factor
View File

@ -287,12 +287,14 @@ TUPLE: promise fulfilled? value processes ;
#! Set the future of the promise to the given value. Threads #! Set the future of the promise to the given value. Threads
#! blocking on the promise will then be released. #! blocking on the promise will then be released.
dup promise-fulfilled? [ dup promise-fulfilled? [
2drop
] [
[ set-promise-value ] keep [ set-promise-value ] keep
[ t swap set-promise-fulfilled? ] keep [ t swap set-promise-fulfilled? ] keep
[ promise-processes ] keep [ promise-processes ] keep
0 <vector> swap set-promise-processes 0 <vector> swap set-promise-processes
[ schedule-thread ] each yield [ schedule-thread ] each yield
] unless ; ] if ;
<PRIVATE <PRIVATE
: (maybe-block-promise) ( promise -- promise ) : (maybe-block-promise) ( promise -- promise )