400 - another fix

1 files changed, 16 insertions, 15 deletions

diff --git a/edit.arc.t b/edit.arc.t
index d73255fc..aa06bbd9 100644
--- a/edit.arc.t
+++ b/edit.arc.t
@@ -5,23 +5,24 @@
 (add-code:readfile "edit.mu")
 (add-code
   '((def test-new-screen [
-      ((2001 screen-address) <- new-screen (5 literal) (5 literal))
+      ((1 screen-address global) <- new-screen (5 literal) (5 literal))
      ])))
 ;? (each stmt function*!new-screen
 ;?   (prn stmt))
-(let before Memory-in-use-until
-;? (= dump-trace* (obj blacklist '("sz" "m" "setm" "addr" "cvt0" "cvt1")))
-  (run 'test-new-screen)
-;?   (prn memory*)
-;?   (prn memory*!2001)
-  (when (~is (memory* memory*!2001) 5)  ; number of rows
-    (prn "F - newly-allocated screen doesn't have the right number of rows: @(memory* memory*!2001)"))
-  (let row-pointers (let base (+ 1 memory*!2001)
-                      (range base (+ base 4)))
-;?     (prn row-pointers)
-    (when (some nil (map memory* row-pointers))
-      (prn "F - newly-allocated screen didn't initialize all of its row pointers"))
-    (when (~all 5 (map memory* (map memory* row-pointers)))
-      (prn "F - newly-allocated screen didn't initialize all of its row lengths"))))
+(let routine make-routine!test-new-screen
+  (let before rep.routine!alloc
+;?     (= dump-trace* (obj blacklist '("sz" "m" "setm" "addr" "cvt0" "cvt1")))
+    (run 'test-new-screen)
+;?     (prn memory*)
+;?     (prn memory*.2001)
+    (when (~is (memory* memory*.1) 5)  ; number of rows
+      (prn "F - newly-allocated screen doesn't have the right number of rows: @(memory* memory*!2001)"))
+    (let row-pointers (let base (+ 1 memory*.1)
+                        (range base (+ base 4)))
+  ;?     (prn row-pointers)
+      (when (some nil (map memory* row-pointers))
+        (prn "F - newly-allocated screen didn't initialize all of its row pointers"))
+      (when (~all 5 (map memory* (map memory* row-pointers)))
+        (prn "F - newly-allocated screen didn't initialize all of its row lengths")))))
 
 (reset)