5485 - promote SubX to top-level

1 files changed, 0 insertions, 33 deletions

diff --git a/arc/edit.arc.t b/arc/edit.arc.t
deleted file mode 100644
index ff039602..00000000
--- a/arc/edit.arc.t
+++ /dev/null
@@ -1,33 +0,0 @@
-(selective-load "mu.arc" section-level)
-(set allow-raw-addresses*)
-
-(section 100
-
-(reset)
-(new-trace "new-screen")
-(add-code:readfile "edit.mu")
-(add-code
-  '((function test-new-screen [
-      (1:screen-address/global <- new-screen 5:literal 5:literal)
-     ])))
-;? (each stmt function*!new-screen
-;?   (prn stmt))
-(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)
-
-)  ; section 100 for all editor code