macro based primitive implementor

1 files changed, 10 insertions, 0 deletions

diff --git a/src/lisp/primitives.rs b/src/lisp/primitives.rs
new file mode 100644
index 0000000..1c9fe8e
--- /dev/null
+++ b/src/lisp/primitives.rs
@@ -0,0 +1,10 @@
+#[macro_export]
+macro_rules! primitive {
+    ($env:expr, $arity:expr, $name:expr, $closure:expr) => {
+        let val = crate::lisp::expr::LispExpr::PrimitiveFunc(crate::lisp::expr::PrimitiveFunc {
+            arity: $arity,
+            closure: $closure,
+        });
+        let _ = $env.insert($name.to_string(), val);
+    };
+}