diff options
-rw-r--r-- | mu.arc.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mu.arc.t b/mu.arc.t index 8761664e..7eb6a65c 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -2322,14 +2322,16 @@ ]) (function main [ (1:space-address <- f) - (2:integer <- g 1:space-address) + (2:integer 3:integer <- g 1:space-address) ]))) (run 'main) (each routine completed-routines* (aif rep.routine!error (prn "error - " it))) +;? (prn memory*) ;? 1 (when (or (~is memory*.2 5) (~is memory*.3 5)) (prn "F - new names in shared spaces don't override old ones")) +;? (quit) ;? 1 ) ; section 20 |