Fix bug in html.parser.analyzer

[factor.git] / extra / html / parser / analyzer / analyzer.factor

diff --git a/extra/html/parser/analyzer/analyzer.factor b/extra/html/parser/analyzer/analyzer.factor
index c67a03cbfcd85cad0956a047661f302bc8284c84..d9ae88675abfcd2dbb13930a26f6631b3ab064f8 100644 (file)
--- 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 ;