core/extra tests: Fix word -> last-word
parent
f66c9cc206
commit
31e1fe54e3
|
@ -95,7 +95,7 @@ C: <empty> empty
|
|||
[ t length ] [ object>> t eq? ] must-fail-with
|
||||
|
||||
[ "<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 ;
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
[ ] [
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue