parser: split out check-word-name.

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 91dea25487cef3ca6e6f88bce90695987cb3684d..1bda0e48f7113dce89a4f1a46bb519ccf2e593de 100644 (file)
--- 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 ;