From de4e42b6ca1f0244f74c1dbf3f89612a36b62330 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 23 Aug 2015 13:32:24 -0700
Subject: [PATCH] classes.parser: add a create-class word.

---
 core/classes/parser/parser.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/core/classes/parser/parser.factor b/core/classes/parser/parser.factor
index 7802a1ab87..bfb97083fb 100644
--- 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 ;