From 342b8e5cab9895ec7e24726f2279724c1d4cf4a6 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 21:29:15 -0700 Subject: [PATCH] words: Rename undefined. --- core/words/words-tests.factor | 6 +++--- core/words/words.factor | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/core/words/words-tests.factor b/core/words/words-tests.factor index 60673c6c7e..605f8b8c4d 100644 --- a/core/words/words-tests.factor +++ b/core/words/words-tests.factor @@ -66,10 +66,10 @@ FORGET: another-forgotten ! 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 @@ -87,7 +87,7 @@ DEFER: deferred ] 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( -- ) diff --git a/core/words/words.factor b/core/words/words.factor index ac0b729f06..11cf910be3 100644 --- a/core/words/words.factor +++ b/core/words/words.factor @@ -53,8 +53,8 @@ M: word definition def>> ; 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