55

2 files changed, 5 insertions, 5 deletions

diff --git a/new.arc b/new.arc
index 54b1ac2f..88a41263 100644
--- a/new.arc
+++ b/new.arc
@@ -12,8 +12,3 @@
   ((3 integer) <- literal 1)
   ((Root_allocator_pointer integer) <- add (Root_allocator_pointer integer) (3 integer))
   (reply (2 integer-address)))
-; tests to express:
-; every call increments the pointer
-; 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
diff --git a/new.arc.t b/new.arc.t
index c10444de..5266ea2d 100644
--- a/new.arc.t
+++ b/new.arc.t
@@ -19,3 +19,8 @@
   (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