631 - temporary: hook into underlying arc 'eval'

1 files changed, 9 insertions, 0 deletions

diff --git a/eval.mu b/eval.mu
new file mode 100644
index 00000000..66107fc4
--- /dev/null
+++ b/eval.mu
@@ -0,0 +1,9 @@
+; example of calling to underlying arc eval
+
+(function main [
+  (default-space:space-address <- new space:literal 30:literal)
+  (s:string-address <- new "(+ 1 1)")
+  (t:string-address <- $eval s:string-address)
+  (print-primitive-to-host t:string-address)
+  ; then you'll have to read off the characters starting at string-address 't'
+])