From d52535b63a71b216cac816cc87fe14db0ca57924 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Wed, 1 Apr 2009 13:42:38 -0500
Subject: [PATCH] set non-key/value attributes to themselves
---
extra/html/parser/parser-tests.factor | 2 +-
extra/html/parser/parser.factor | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/extra/html/parser/parser-tests.factor b/extra/html/parser/parser-tests.factor
index 25251159b1..ca276fc54e 100644
--- a/extra/html/parser/parser-tests.factor
+++ b/extra/html/parser/parser-tests.factor
@@ -50,7 +50,7 @@ V{
{ "foo" "bar" }
{ "href" "http://factorcode.org/" }
{ "baz" "quux" }
- { "nofollow" f }
+ { "nofollow" "nofollow" }
} f f }
}
] [ "<a href = \"http://factorcode.org/\" nofollow foo = bar baz='quux'a=pirsqd >" parse-html ] unit-test
diff --git a/extra/html/parser/parser.factor b/extra/html/parser/parser.factor
index 4aae6a25c4..61315a4925 100644
--- a/extra/html/parser/parser.factor
+++ b/extra/html/parser/parser.factor
@@ -85,7 +85,7 @@ SYMBOL: tagstack
: parse-key/value ( state-parser -- key value )
[ read-key >lower ]
[ skip-whitespace "=" take-sequence ]
- [ swap [ read-value ] [ drop f ] if ] tri ;
+ [ swap [ read-value ] [ drop dup ] if ] tri ;
: (parse-attributes) ( state-parser -- )
skip-whitespace