689

Typo in a recent test.

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