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/util.rs | 7 +++++++
 1 file changed, 7 insertions(+)

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

diff --git a/src/sexp/util.rs b/src/sexp/util.rs
index a28aaad..507455f 100644
--- a/src/sexp/util.rs
+++ b/src/sexp/util.rs
@@ -86,4 +86,11 @@ impl SExp {
             _ => None
         }
     }
+
+    pub fn is_print(&self) -> bool {
+        match self {
+            SCons(op, _) if **op == Atom(Print) => true,
+            _ => false
+        }
+    }
 }
-- 
cgit v1.2.3