steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove >r r>

db4
Doug Coleman 2008-12-14 00:38:37 -06:00
parent ae1ebf58ac
commit 0329083970
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/html/parser/analyzer/analyzer.factor
View File

@ -130,7 +130,7 @@ TUPLE: link attributes clickable ;
: find-forms ( vector -- vector' )
"form" over find-opening-tags-by-name
swap [ >r first2 r> find-between* ] curry map
swap [ [ first2 ] dip find-between* ] curry map
[ [ name>> { "form" "input" } member? ] filter ] map ;
: find-html-objects ( vector string -- vector' )