io: Fix unneeded escaping of forward slash

Instead of using Io's `asJson` method which escapes forward slashes,
implement our own string escaping code so it fits the Mal requirements.

The relevant step1 test was modified from soft to hard.

diff --git a/io/MalTypes.io b/io/MalTypes.io
index afe0a75..a5b7c0c 100644 (file)
--- a/io/MalTypes.io
+++ b/io/MalTypes.io
@@ -7,7 +7,9 @@ Number malPrint := method(readable, self asString)
 
 // Io strings are of type Sequence
 Sequence malPrint := method(readable,
-    if(readable, self asString asJson, self asString)
+    if(readable,
+       "\"" .. (self asString asMutable replaceSeq("\\", "\\\\") replaceSeq("\"", "\\\"") replaceSeq("\n", "\\n")) .. "\"",
+       self asString)
 )
 
 MalMeta := Object clone do(

diff --git a/tests/step1_read_print.mal b/tests/step1_read_print.mal
index 913a412..11dc4bf 100644 (file)
--- a/tests/step1_read_print.mal
+++ b/tests/step1_read_print.mal
@@ -98,6 +98,8 @@ false
 ;=>","
 "-"
 ;=>"-"
+"/"
+;=>"/"
 ":"
 ;=>":"
 ";"
@@ -275,6 +277,3 @@ false
 ;; fantom fails this one
 "!"
 ;=>"!"
-;; io fails this one
-"/"
-;=>"/"