From 31e1fe54e33fa6d96f6f9b4ce080d80be232905b Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 24 Mar 2013 01:11:54 -0700 Subject: [PATCH] core/extra tests: Fix word -> last-word --- core/classes/tuple/tuple-tests.factor | 2 +- core/parser/parser-tests.factor | 2 +- extra/specialized/specialized.factor | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor index ecdd4528d9..8e106d692a 100644 --- a/core/classes/tuple/tuple-tests.factor +++ b/core/classes/tuple/tuple-tests.factor @@ -95,7 +95,7 @@ C: empty [ t length ] [ object>> t eq? ] must-fail-with [ "" ] -[ "IN: classes.tuple.test TUPLE: constructor-test ; C: constructor-test" eval( -- ) word name>> ] unit-test +[ "IN: classes.tuple.test TUPLE: constructor-test ; C: constructor-test" eval( -- ) last-word name>> ] unit-test TUPLE: size-test a b c d ; diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor index a4fed6330a..267fcb3eb7 100644 --- a/core/parser/parser-tests.factor +++ b/core/parser/parser-tests.factor @@ -342,7 +342,7 @@ DEFER: foo ] unit-test [ t ] [ - "foo" "parser.tests" lookup-word word eq? + "foo" "parser.tests" lookup-word last-word eq? ] unit-test [ ] [ diff --git a/extra/specialized/specialized.factor b/extra/specialized/specialized.factor index 035a587c2f..0f900f59a3 100644 --- a/extra/specialized/specialized.factor +++ b/extra/specialized/specialized.factor @@ -48,7 +48,7 @@ ERROR: bad-outputs word quot ; [ dupd specialized-quot "custom-inlining" set-word-prop ] 2bi ; SYNTAX: specialized - word dup stack-effect in>> length make-specialized ; + last-word dup stack-effect in>> length make-specialized ; PREDICATE: specialized-word < word "specialized-defs" word-prop >boolean ;