123 - experiment: build the reading flow around the *test* file

1 files changed, 0 insertions, 23 deletions

diff --git a/sys.arc.t b/sys.arc.t
deleted file mode 100644
index 3a5d0acf..00000000
--- a/sys.arc.t
+++ /dev/null
@@ -1,23 +0,0 @@
-(load "new.arc")
-
-(reset)
-;? (prn memory*)
-(if (~iso memory*.Root_custodian Allocator_start)
-  (prn "F - allocator initialized"))
-
-(reset)
-(add-fns
-  '((main
-      ((x integer-address) <- new)
-      ((x integer-address deref) <- literal 34))))
-(run function*!main)
-;? (prn memory*)
-(if (~iso memory*.Root_custodian (+ Allocator_start 1))
-  (prn "F - 'new' increments allocator pointer"))
-(if (~iso memory*.Allocator_start 34)
-  (prn "F - 'new' returns old location"))
-
-; other tests to express:
-;  no other function can increment the pointer
-;  no later clause can increment the pointer after this base clause
-;  multiple threads/routines can't call the allocator at once