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

remove some debug from concurrency

chris.double 2006-08-31 11:11:43 +00:00
parent 88cfa78fc4
commit 9726e6fbd0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/concurrency/concurrency.factor
View File

@ -490,7 +490,7 @@ PREDICATE: tagged-message (get-msg) ( obj -- ? )
[ H{ } clone process-registry ] (spawn) \ process-registry set-global [ H{ } clone process-registry ] (spawn) \ process-registry set-global
: handle-node-client ( stream -- ) : handle-node-client ( stream -- )
[ [ deserialize ] with-serialized ] with-stream dup . first2 get-process send ; [ [ deserialize ] with-serialized ] with-stream first2 get-process send ;
: (node-server) ( server -- ) : (node-server) ( server -- )
dup accept handle-node-client (node-server) ; dup accept handle-node-client (node-server) ;