new quit primitive

1 files changed, 4 insertions, 0 deletions

diff --git a/src/lisp/eval.rs b/src/lisp/eval.rs
index 63c963c..8bfa86b 100644
--- a/src/lisp/eval.rs
+++ b/src/lisp/eval.rs
@@ -115,6 +115,10 @@ pub fn with_prelude() -> Environment {
             Ok(LispExpr::Number(acc))
         }
     });
+    primitive!(env, Some(0), "quit", |_, app| {
+        app.quit();
+        Ok(LispExpr::Unit)
+    });
     env
 }