From e6fbd4f84fc91eb8cabce43eb060aeaf7c0092e8 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 16 Nov 2008 16:59:25 -0600 Subject: [PATCH] fix compile errors --- extra/html/parser/analyzer/analyzer.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/html/parser/analyzer/analyzer.factor b/extra/html/parser/analyzer/analyzer.factor index 8d7a92b0d9..a18bb31874 100755 --- a/extra/html/parser/analyzer/analyzer.factor +++ b/extra/html/parser/analyzer/analyzer.factor @@ -60,13 +60,13 @@ TUPLE: link attributes clickable ; [ [ [ blank? ] trim ] change-text ] when ] map ; -: find-by-id ( vector id -- vector' ) +: find-by-id ( vector id -- vector' elt/f ) '[ attributes>> "id" at _ = ] find ; -: find-by-class ( vector id -- vector' ) +: find-by-class ( vector id -- vector' elt/f ) '[ attributes>> "class" at _ = ] find ; -: find-by-name ( vector string -- vector ) +: find-by-name ( vector string -- vector elt/f ) >lower '[ name>> _ = ] find ; : find-by-id-between ( vector string -- vector' ) @@ -83,7 +83,7 @@ TUPLE: link attributes clickable ; [ attributes>> "id" swap at _ = ] bi and ] dupd find find-between* ; -: find-by-attribute-key ( vector key -- vector' ) +: find-by-attribute-key ( vector key -- vector' elt/? ) >lower [ attributes>> at _ = ] filter sift ;