From dd71d20e4e8b312d17e4333f7cf133cf2cd80465 Mon Sep 17 00:00:00 2001
From: Joe Groff <joe@victoria.(none)>
Date: Tue, 8 Jun 2010 12:18:06 -0700
Subject: [PATCH] xml.syntax: parse <-variable->s with parse-word instead of
 search so the no-word error gets properly raised when variable doesn't exist

---
 basis/xml/syntax/syntax.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/xml/syntax/syntax.factor b/basis/xml/syntax/syntax.factor
index 92f3cd7a89..6455d7ba0b 100644
--- a/basis/xml/syntax/syntax.factor
+++ b/basis/xml/syntax/syntax.factor
@@ -145,7 +145,7 @@ MACRO: interpolate-xml ( xml -- quot )
     ] each-interpolated drop ;
 
 : >search-hash ( seq -- hash )
-    [ dup search ] H{ } map>assoc ;
+    [ dup parse-word ] H{ } map>assoc ;
 
 : extract-variables ( xml -- seq )
     [ [ var>> , ] each-interpolated ] { } make ;