smalltalk.parser: make sure to escape \

diff --git a/extra/smalltalk/parser/parser.factor b/extra/smalltalk/parser/parser.factor
index c7cafe94ddc741c3484273672b4f2445c5cd18b5..6de20afc6d33aaff1713ce2fbce4b07ccd33de73 100644 (file)
--- a/extra/smalltalk/parser/parser.factor
+++ b/extra/smalltalk/parser/parser.factor
@@ -45,7 +45,7 @@ Keyword = Identifier:i ":" => [[ i ":" append ]]
 
 KeywordMessageSelector = Keyword+ => [[ concat ]]
 BinarySelectorChar =   "~" | "!" | "@" | "%" | "&" | "*" | "-" | "+"
-                     | "=" | "|" | "\" | "<" | ">" | "," | "?" | "/"
+                     | "=" | "|" | "\\" | "<" | ">" | "," | "?" | "/"
 BinaryMessageSelector = BinarySelectorChar+ => [[ concat ]]
 
 OptionalMinus = ("-" => [[ CHAR: - ]])?
@@ -225,4 +225,4 @@ End = !(.)
 
 Program = TopLevelForm End
 
-;EBNF
\ No newline at end of file
+;EBNF