diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-22 00:58:13 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-22 00:58:45 -0800 |
commit | d5bb1bfb19ebfe1e852c0e76b991feaf61c6436f (patch) | |
tree | 8f123e3eb1646d7050dbcfbe1588d3fd0ff46743 /mu.arc.t | |
parent | eb965a17f4c6220d4fdd97c4b35e2f2b895d5873 (diff) | |
download | mu-d5bb1bfb19ebfe1e852c0e76b991feaf61c6436f.tar.gz |
296 - finally, shared a channel between routines
Was already working, test was just stale. Reassuring.
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mu.arc.t b/mu.arc.t index 50ec12ff..58292570 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -2325,7 +2325,7 @@ ((default-scope scope-address) <- new (scope literal) (30 literal)) ((chan channel-address) <- new-channel (3 literal)) (fork (f2 fn) (chan channel-address)) - ((1 integer global) <- read (chan channel-address))) + ((1 tagged-value global) <- read (chan channel-address))) (f2 ((default-scope scope-address) <- new (scope literal) (30 literal)) ((n integer-address) <- new (integer literal)) @@ -2340,7 +2340,7 @@ ;? (prn memory*) (each routine completed-routines* (aif rep.routine!error (prn "error - " it))) -(if (~is 24 memory*.1) +(if (~is 24 (memory* memory*.2)) ; location 1 contains tagged-value *x above (prn "F - channels are meant to be shared between routines")) ;? (quit) |