diff options
| -rw-r--r-- | mu.arc | 2 | ||||
| -rw-r--r-- | mu.arc.t | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index c53a6ccd..6299e054 100644 --- a/mu.arc +++ b/mu.arc @@ -1307,7 +1307,7 @@ (break-if remaining?:boolean) (free:integer-address/deref <- copy 0:literal) } - reply:chan:channel-address/deref) + (reply chan:channel-address/deref)) (init-fn read (default-scope:scope-address <- new scope:literal 30:literal) diff --git a/mu.arc.t b/mu.arc.t index b1d6937b..b6f11a1e 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -2731,10 +2731,14 @@ (5:integer <- get 1:channel-address/deref first-full:offset) (6:integer <- get 1:channel-address/deref first-free:offset) ]))) +;? (prn function*!write) ;? (set dump-trace*) ;? (= dump-trace* (obj blacklist '("sz" "m" "setm" "addr" "array-len" "cvt0" "cvt1"))) ;? (= dump-trace* (obj whitelist '("jump"))) +;? (= dump-trace* (obj whitelist '("run" "reply"))) (run 'main) +(each routine completed-routines* + (aif rep.routine!error (prn "error - " it))) ;? (prn canon.memory*) (if (or (~is 0 memory*.5) (~is 1 memory*.6)) |