classes.parser: add a create-class word.

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 ;