core/extra tests: Fix word -> last-word

db4
Doug Coleman 2013-03-24 01:11:54 -07:00
parent f66c9cc206
commit 31e1fe54e3
3 changed files with 3 additions and 3 deletions

View File

@ -95,7 +95,7 @@ C: <empty> empty
[ t length ] [ object>> t eq? ] must-fail-with [ t length ] [ object>> t eq? ] must-fail-with
[ "<constructor-test>" ] [ "<constructor-test>" ]
[ "IN: classes.tuple.test TUPLE: constructor-test ; C: <constructor-test> constructor-test" eval( -- ) word name>> ] unit-test [ "IN: classes.tuple.test TUPLE: constructor-test ; C: <constructor-test> constructor-test" eval( -- ) last-word name>> ] unit-test
TUPLE: size-test a b c d ; TUPLE: size-test a b c d ;

View File

@ -342,7 +342,7 @@ DEFER: foo
] unit-test ] unit-test
[ t ] [ [ t ] [
"foo" "parser.tests" lookup-word word eq? "foo" "parser.tests" lookup-word last-word eq?
] unit-test ] unit-test
[ ] [ [ ] [

View File

@ -48,7 +48,7 @@ ERROR: bad-outputs word quot ;
[ dupd specialized-quot "custom-inlining" set-word-prop ] 2bi ; [ dupd specialized-quot "custom-inlining" set-word-prop ] 2bi ;
SYNTAX: specialized SYNTAX: specialized
word dup stack-effect in>> length make-specialized ; last-word dup stack-effect in>> length make-specialized ;
PREDICATE: specialized-word < word PREDICATE: specialized-word < word
"specialized-defs" word-prop >boolean ; "specialized-defs" word-prop >boolean ;