diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor index a15da82718..6bd4abb7e1 100755 --- a/core/parser/parser-tests.factor +++ b/core/parser/parser-tests.factor @@ -322,7 +322,7 @@ IN: parser.tests [ "IN: parser.tests \\ class-fwd-test" "redefining-a-class-3" parse-stream drop - ] [ [ no-word? ] is? ] must-fail-with + ] [ [ no-word-error? ] is? ] must-fail-with [ ] [ "IN: parser.tests TUPLE: class-fwd-test ; SYMBOL: class-fwd-test" @@ -332,7 +332,7 @@ IN: parser.tests [ "IN: parser.tests \\ class-fwd-test" "redefining-a-class-3" parse-stream drop - ] [ [ no-word? ] is? ] must-fail-with + ] [ [ no-word-error? ] is? ] must-fail-with [ "IN: parser.tests : foo ; TUPLE: foo ;" diff --git a/core/parser/parser.factor b/core/parser/parser.factor index 6e5023f74a..f8836217b5 100755 --- a/core/parser/parser.factor +++ b/core/parser/parser.factor @@ -252,7 +252,7 @@ PREDICATE: unexpected-eof < unexpected [ "Use the word " swap summary append ] keep ] { } map>assoc ; -ERROR: no-word-error name ; +TUPLE: no-word-error name ; M: no-word-error summary drop "Word not found in current vocabulary search path" ; diff --git a/core/vocabs/loader/loader-tests.factor b/core/vocabs/loader/loader-tests.factor index fd3b616b87..4b978932bc 100755 --- a/core/vocabs/loader/loader-tests.factor +++ b/core/vocabs/loader/loader-tests.factor @@ -68,7 +68,7 @@ IN: vocabs.loader.tests "resource:core/vocabs/loader/test/a/a.factor" parse-stream -] [ [ no-word? ] is? ] must-fail-with +] [ [ no-word-error? ] is? ] must-fail-with 0 "count-me" set-global