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

[factor.git] / extra / c / preprocessor / preprocessor.factor

diff --git a/extra/c/preprocessor/preprocessor.factor b/extra/c/preprocessor/preprocessor.factor
index c5232240feb59196e5f426f1b836243c509d2810..55e11edde570a5a38dcda5d2f3e4a4504907d31a 100644 (file)
--- a/extra/c/preprocessor/preprocessor.factor
+++ b/extra/c/preprocessor/preprocessor.factor
@@ -81,7 +81,7 @@ ERROR: header-file-missing path ;
     skip-whitespace/comments advance dup previous {
         { CHAR: < [ CHAR: > take-until-object read-standard-include ] }
         { CHAR: " [ CHAR: " take-until-object read-local-include ] }
-        [ throw-bad-include-line ]
+        [ bad-include-line ]
     } case ;
 
 : (readlns) ( -- )
@@ -155,7 +155,7 @@ ERROR: header-file-missing path ;
         { "else" [ handle-else ] }
         { "pragma" [ handle-pragma ] }
         { "include_next" [ handle-include-next ] }
-        [ throw-unknown-c-preprocessor ]
+        [ unknown-c-preprocessor ]
     } case ;
 
 : parse-directive-line ( preprocessor-state sequence-parser -- )