change ERROR: words from throw-foo back to foo.

[factor.git] / core / strings / parser / parser.factor

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 86f6030b05760ba978388235c5140e6fdf10ed0f..97ee6836f00e2e2a776e7d2fd365a2f96632c00f 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -22,7 +22,7 @@ ERROR: bad-escape char ;
         { CHAR: 0  CHAR: \0 }
         { CHAR: \\ CHAR: \\ }
         { CHAR: \" CHAR: \" }
-    } ?at [ throw-bad-escape ] unless ;
+    } ?at [ bad-escape ] unless ;
 
 SYMBOL: name>char-hook
 
@@ -116,7 +116,7 @@ ERROR: escaped-char-expected ;
     dup still-parsing-line? [
         [ current-char ] [ advance-char ] bi
     ] [
-        throw-escaped-char-expected
+        escaped-char-expected
     ] if ;
 
 : lexer-head? ( lexer string -- ? )