1 files changed, 7 insertions, 0 deletions
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
+        }
+    }
 }