From 3e1bf7f9946efe70d452c71494ac77ed39110804 Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Wed, 6 Aug 2025 17:05:55 +0300
Subject: Added print, raised level on which UnboundGeneric error is returned

---
 src/sexp/mod.rs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/sexp/mod.rs')

diff --git a/src/sexp/mod.rs b/src/sexp/mod.rs
index 7aa517b..c674ee9 100644
--- a/src/sexp/mod.rs
+++ b/src/sexp/mod.rs
@@ -33,6 +33,8 @@ pub enum SLeaf {
 
     Let,
 
+    Print,
+
     Int(i32),
     True,
     False,
@@ -69,7 +71,7 @@ impl SExp {
             SCons(a, b) =>
                 SCons(a.clone(), b.clone()).check_let().is_some() ||
                 (
-                    (**a == Atom(Quote) || **a == Atom(Vector))
+                    (**a == Atom(Quote) || **a == Atom(Vector) || **a == Atom(Print))
                     && b.consists_of_values()
                 ),
             Atom(Var(_)) => false,
-- 
cgit v1.2.3