From 32aa234de62cea36b8ab24de66b7088b7f3d23d1 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Tue, 13 Jan 2015 21:00:43 -0800 Subject: 553 --- blocking.arc.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/blocking.arc.t b/blocking.arc.t index c20e38e8..51ca90fa 100644 --- a/blocking.arc.t +++ b/blocking.arc.t @@ -10,7 +10,7 @@ (function main [ (default-space:space-address <- new space:literal 30:literal/capacity) (1:channel-address <- init-channel 3:literal) - (2:integer/routine <- fork reader:fn default-space:space-address/globals 50:literal/limit) + (2:integer/routine <- fork-helper reader:fn default-space:space-address/globals 50:literal/limit) ; write nothing to the channel ;? (sleep until-routine-done:literal 2:integer/routine) ]))) -- cgit 1.4.1-2-gfad0