From a2ca4c08dcbb5c08e210bc741141290a136a8de4 Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Sat, 9 Aug 2025 21:39:45 +0300
Subject: Implemented print as ? -> ()

---
 src/sexp/step.rs | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/src/sexp/step.rs b/src/sexp/step.rs
index 816582c..11df257 100644
--- a/src/sexp/step.rs
+++ b/src/sexp/step.rs
@@ -521,6 +521,12 @@ impl SExp {
                 }
             },
 
+	    // Print
+	    SCons(op, l) if *op == Atom(Print) => {
+		println!("{}", *l);
+		Ok(Atom(Nil))
+	    },
+
             // t is value
             // ----------
             //   t -> t
-- 
cgit v1.2.3