diff options
Diffstat (limited to 'primer.py')
| -rw-r--r-- | primer.py | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/primer.py b/primer.py new file mode 100644 index 0000000..2c6d73a --- /dev/null +++ b/primer.py @@ -0,0 +1,37 @@ +import actinide +import actinide.types as t +import actinide.builtin as b +import actinide.evaluator as e + +session = actinide.Session() +program = session.read(""" +(begin + 1 + 1.0 + "Hello" + (define a + (lambda (b) (values 1 2.2 "three" a b))) + (define pp + (lambda () (pp))) + (print (a "foo")) + (print (eval (list (symbol "a") "bar"))) + (print 0 (values 1 2 3) 4 5) + (pp)) +""") + +def begin(*args): + if args: + return args[-1] + return None + +def values(*args): + return args + +session.bind_builtin(values) +session.bind_void(print) +session.bind_fn(begin) +session.bind_fn(t.list) +session.bind_fn(session.symbol) +session.bind_builtin(session.eval) + +session.eval(program) |
