From 1b8f864f8d0482707eab6115458d6432f3d4731b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 29 Apr 2016 12:18:13 +0200
Subject: fix toString for Push

---
 Smurf.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Smurf.icl')

diff --git a/Smurf.icl b/Smurf.icl
index 00da0aa..4c7e0c2 100644
--- a/Smurf.icl
+++ b/Smurf.icl
@@ -24,7 +24,7 @@ instance zero [a] where zero = []
 
 instance toString Stm
 where
-    toString (Push s) = "\"" +++ s +++ "\""
+    toString (Push s) = quotify s
     toString Input = "i"
     toString Output = "o"
     toString Cat = "+"
-- 
cgit v1.2.3