From fcecde1108cd2b1affc704e4ac7c6b7f19fbbc77 Mon Sep 17 00:00:00 2001
From: Peter Rice <peterrice@fastmail.com>
Date: Wed, 17 Sep 2025 23:37:45 -0400
Subject: [PATCH] fix string printing

---
 lox/interpreter.janet       | 4 +++-
 test/test_interpreter.janet | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lox/interpreter.janet b/lox/interpreter.janet
index 1fa3a40..d9a467c 100644
--- a/lox/interpreter.janet
+++ b/lox/interpreter.janet
@@ -68,7 +68,9 @@
 
 (varfn execute [stmt]
   (match stmt
-    [:print expr] (printf "%q" (evaluate expr))
+    [:print expr] (printf "%s" (match (evaluate expr)
+                                 nil "nil"
+                                 val (string val)))
     [:expr expr] (xprintf (dyn :expr-out @"") "%Q" (evaluate expr))
     # [:return word value] (throw return)
     [:if cond then else] (do
diff --git a/test/test_interpreter.janet b/test/test_interpreter.janet
index 288f8d8..a746988 100644
--- a/test/test_interpreter.janet
+++ b/test/test_interpreter.janet
@@ -56,7 +56,7 @@
   1.1
 `)
 (test-stdout (execute [:print [:literal "one"]]) `
-  "one"
+  one
 `)
 (test-stdout (execute [:if [:literal true] [:print [:literal 1]] nil]) `
   1
-- 
2.51.2