From 875592b01096943c4d1b70cdfd87858f976e4c0a Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Thu, 29 Jan 2009 18:38:14 -0600
Subject: [PATCH] Fixing xml.name for word name change

---
 basis/xml/name/name.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/xml/name/name.factor b/basis/xml/name/name.factor
index 83132d4d29..1907a83a83 100644
--- a/basis/xml/name/name.factor
+++ b/basis/xml/name/name.factor
@@ -47,7 +47,7 @@ SYMBOL: ns-stack
 
 : valid-name? ( str -- ? )
     [ f ] [
-        version=1.0? swap {
+        version-1.0? swap {
             [ first name-start? ]
             [ rest-slice [ name-char? ] with all? ]
         } 2&&
@@ -66,7 +66,7 @@ SYMBOL: ns-stack
     ] ?if ;
 
 : take-name ( -- string )
-    version=1.0? '[ _ get-char name-char? not ] take-until ;
+    version-1.0? '[ _ get-char name-char? not ] take-until ;
 
 : parse-name ( -- name )
     take-name interpret-name ;