Fix bug in html.parser.analyzer

2010-10-25 12:50:43 -05:00 · 2010-10-25 12:50:43 -05:00 · edba5f2bbe
parent 1f57dc326e
commit edba5f2bbe
1 changed files with 2 additions and 2 deletions
--- a/extra/html/parser/analyzer/analyzer.factor
+++ b/extra/html/parser/analyzer/analyzer.factor
@ -171,8 +171,8 @@ ERROR: undefined-find-nth m n seq quot ;
    [ [ name>> { "form" "input" } member? ] filter ] map ;

 : find-html-objects ( vector string -- vector' )
-    dupd find-opening-tags-by-name
-    [ first2 find-between* ] curry map ;
+    over find-opening-tags-by-name
+    [ first2 find-between* ] with map ;

 : form-action ( vector -- string )
    [ name>> "form" = ] find nip "action" attribute ;