! Make sure that undefined words throw proper errors
DEFER: deferred
-[ deferred ] [ T{ undefined f deferred } = ] must-fail-with
+[ deferred ] [ T{ undefined-word f deferred } = ] must-fail-with
[ "IN: words.tests DEFER: not-compiled << not-compiled >>" eval( -- ) ]
-[ error>> [ undefined? ] [ word>> name>> "not-compiled" = ] bi and ] must-fail-with
+[ error>> [ undefined-word? ] [ word>> name>> "not-compiled" = ] bi and ] must-fail-with
[ ] [ "IN: words.tests FORGET: not-compiled" eval( -- ) ] unit-test
] when*
[ "IN: words.tests : undef-test ( -- ) ; << undef-test >>" eval( -- ) ]
-[ error>> undefined? ] must-fail-with
+[ error>> undefined-word? ] must-fail-with
[ ] [
"IN: words.tests GENERIC: symbol-generic ( -- )" eval( -- )
PRIVATE>
-TUPLE: undefined word ;
-: undefined ( -- * ) callstack caller \ undefined boa throw ;
+TUPLE: undefined-word word ;
+: undefined ( -- * ) callstack caller \ undefined-word boa throw ;
: undefined-def ( -- quot )
#! 'f' inhibits tail call optimization in non-optimizing