From 2c41c913eea8469506cfd6bbe8c6a033dd97da23 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 14 Aug 2015 19:46:09 -0700
Subject: [PATCH] parser: split out check-word-name.

---
 core/parser/parser.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 91dea25487..1bda0e48f7 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -74,11 +74,13 @@ ERROR: number-expected ;
 
 ERROR: invalid-word-name string ;
 
-: scan-word-name ( -- string )
-    scan-token
+: check-word-name ( string -- string )
     dup "\"" = [ t ] [ dup string>number ] if
     [ invalid-word-name ] when ;
 
+: scan-word-name ( -- string )
+    scan-token check-word-name ;
+
 : scan-new ( -- word )
     scan-word-name create-word-in ;