From 9726e6fbd0c2a7ebf7b1d26daae8aff506cf50c8 Mon Sep 17 00:00:00 2001 From: "chris.double" Date: Thu, 31 Aug 2006 11:11:43 +0000 Subject: [PATCH] remove some debug from concurrency --- contrib/concurrency/concurrency.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/concurrency/concurrency.factor b/contrib/concurrency/concurrency.factor index 20d4dc6682..5eacdb3e4d 100644 --- a/contrib/concurrency/concurrency.factor +++ b/contrib/concurrency/concurrency.factor @@ -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) ;