change ERROR: words from throw-foo back to foo.

[factor.git] / extra / smalltalk / classes / classes.factor

diff --git a/extra/smalltalk/classes/classes.factor b/extra/smalltalk/classes/classes.factor
index 142904e008b56010e51a7b486d8871c9a78aa91d..0790cde7d993aefea4c7ae4877675d7d1daec68b 100644 (file)
--- a/extra/smalltalk/classes/classes.factor
+++ b/extra/smalltalk/classes/classes.factor
@@ -13,7 +13,7 @@ classes [ H{ } clone ] initialize
 ERROR: no-class name ;
 
 : lookup-class ( class -- class )
-    classes get ?at [ throw-no-class ] unless ;
+    classes get ?at [ no-class ] unless ;
 
 : define-class ( class superclass ivars -- class-word )
     [ create-class ] [ lookup-class ] [ ] tri*