From 96120e602f43e225d22af6ec1053ebc6797a79f7 Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Wed, 24 Mar 2021 18:24:39 +0530
Subject: new quit primitive

---
 src/lisp/eval.rs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/lisp/eval.rs')

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
 }
 
-- 
cgit v1.2.3