classes.parser: add a create-class word.

diff --git a/core/classes/parser/parser.factor b/core/classes/parser/parser.factor
index 7802a1ab87ee9e79922d57664848cb49b6262da4..bfb97083fb5c2a01ef271d4640b6348bced88221 100644 (file)
--- a/core/classes/parser/parser.factor
+++ b/core/classes/parser/parser.factor
@@ -6,12 +6,15 @@ IN: classes.parser
 : save-class-location ( class -- )
     location remember-class ;
 
-: create-class-in ( string -- word )
-    current-vocab create-word
+: create-class ( string vocab -- word )
+    create-word
     dup t "defining-class" set-word-prop
     dup set-last-word
     dup save-class-location
     dup create-predicate-word save-location ;
 
+: create-class-in ( string -- word )
+    current-vocab create-class ;
+
 : scan-new-class ( -- word )
     scan-word-name create-class-in ;