From 356ee5ced57cd51c383f03917529b3922bd36717 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Wed, 28 Jan 2009 23:56:47 -0600
Subject: [PATCH] Fixing xmode?
---
basis/xmode/loader/syntax/syntax.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/basis/xmode/loader/syntax/syntax.factor b/basis/xmode/loader/syntax/syntax.factor
index 9b53000e02..f63191d5f6 100644
--- a/basis/xmode/loader/syntax/syntax.factor
+++ b/basis/xmode/loader/syntax/syntax.factor
@@ -31,7 +31,7 @@ SYMBOL: ignore-case?
! PROP, PROPS
: parse-prop-tag ( tag -- key value )
- "NAME" over at "VALUE" rot at ;
+ [ "NAME" attr ] [ "VALUE" attr ] bi ;
: parse-props-tag ( tag -- assoc )
child-tags
@@ -40,7 +40,7 @@ SYMBOL: ignore-case?
: position-attrs ( tag -- at-line-start? at-whitespace-end? at-word-start? )
! XXX Wrong logic!
{ "AT_LINE_START" "AT_WHITESPACE_END" "AT_WORD_START" }
- swap [ at string>boolean ] curry map first3 ;
+ [ attr string>boolean ] with map first3 ;
: parse-literal-matcher ( tag -- matcher )
dup children>string