From 7174e8cbc4e51dddfc6b258d80e4681428952462 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 29 Mar 2008 15:50:50 -0500
Subject: [PATCH] Fixing unit test failures
---
core/parser/parser-tests.factor | 4 ++--
core/parser/parser.factor | 2 +-
core/vocabs/loader/loader-tests.factor | 2 +-
3 files changed, 4 insertions(+), 4 deletions(-)
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"
<string-reader> "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"
<string-reader> "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
<string-reader>
"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