Adding escaping to CHAR: " -> CHAR: \"

[factor.git] / extra / morse / morse.factor

diff --git a/extra/morse/morse.factor b/extra/morse/morse.factor
index 86c599137be8de739fdf1745fbabf664c7fc5f3e..23301ed3f8fbb2ab9d2376700be995496db64298 100755 (executable)
--- a/extra/morse/morse.factor
+++ b/extra/morse/morse.factor
@@ -71,7 +71,7 @@ CONSTANT: morse-code-table $[
         { CHAR: + ".-.-."  }
         { CHAR: - "-....-" }
         { CHAR: _ "..--.-" }
-        { CHAR: " ".-..-." }
+        { CHAR: \" ".-..-." }
         { CHAR: $ "...-..-" }
         { CHAR: @ ".--.-." }
         { CHAR: \s "/" }