From eb6cdcc06eb439c7ad67e9511cf8a02f318637ca Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 19 Nov 2008 17:41:39 -0600 Subject: [PATCH] Fix parser tests --- core/parser/parser-tests.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor index c4fa0890f9..d2d407e147 100644 --- a/core/parser/parser-tests.factor +++ b/core/parser/parser-tests.factor @@ -428,7 +428,7 @@ must-fail-with "USE: this-better-not-exist" eval ] must-fail -[ ": foo ;" eval ] [ error>> no-current-vocab? ] must-fail-with +[ ": foo ;" eval ] [ error>> error>> no-current-vocab? ] must-fail-with [ 92 ] [ "CHAR: \\" eval ] unit-test [ 92 ] [ "CHAR: \\\\" eval ] unit-test @@ -483,7 +483,7 @@ must-fail-with [ t ] [ "staging-problem-test-2" "parser.tests" lookup >boolean ] unit-test -[ "DEFER: blah" eval ] [ error>> no-current-vocab? ] must-fail-with +[ "DEFER: blah" eval ] [ error>> error>> no-current-vocab? ] must-fail-with [ "IN: parser.tests : blah ; parsing FORGET: blah" eval