163 - start of a simple assembler

1 files changed, 13 insertions, 0 deletions

diff --git a/mu.arc.t b/mu.arc.t
index 8009ad28..63445058 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -1340,4 +1340,17 @@
 ; Eventually we want the right stack-management primitives to build delimited
 ; continuations in mu.
 
+; ---
+
+(reset)
+(new-trace "convert-names-local")
+(if (~iso (convert-names
+            '(((x integer) <- copy (4 literal))
+              ((y integer) <- copy (2 literal))
+              ((z integer) <- add (x integer) (y integer))))
+          '(((1 integer) <- copy (4 literal))
+            ((2 integer) <- copy (2 literal))
+            ((3 integer) <- add (1 integer) (2 integer))))
+  (prn "F - convert-names renames symbolic names to integer offsets"))
+
 (reset)  ; end file with this to persist the trace for the final test