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

View File

@ -490,7 +490,7 @@ PREDICATE: tagged-message (get-msg) ( obj -- ? )
[ H{ } clone process-registry ] (spawn) \ process-registry set-global
: 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 -- )
dup accept handle-node-client (node-server) ;