sequences: define ?first and ?second.

[factor.git] / basis / farkup / farkup.factor

diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index 406dada1454dee054c277cfd259530693a7fd38b..b4e5a2b981e674df616da3770c685a2436452887 100644 (file)
--- a/basis/farkup/farkup.factor
+++ b/basis/farkup/farkup.factor
@@ -82,8 +82,6 @@ DEFER: (parse-paragraph)
         [ [ parse-paragraph ] or-simple-title link boa ] if
     ] dip [ (parse-paragraph) cons ] [ 1list ] if* ;
 
-: ?first ( seq -- elt ) 0 swap ?nth ;
-
 : parse-big-link ( before after -- link rest )
     dup ?first CHAR: [ =
     [ parse-link ]