[ 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 ;
] unit-test
[ t ] [
- "foo" "parser.tests" lookup-word word eq?
+ "foo" "parser.tests" lookup-word last-word eq?
] unit-test
[ ] [
[ 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 ;