extra: using "swap index".

diff --git a/extra/html/parser/analyzer/analyzer.factor b/extra/html/parser/analyzer/analyzer.factor
index 60b7457acf6151f1bdb6c4cd9fa66ce760a939da..1487fb9d36ec0db89d29342e78a73ffafe7f01b2 100644 (file)
--- a/extra/html/parser/analyzer/analyzer.factor
+++ b/extra/html/parser/analyzer/analyzer.factor
@@ -58,7 +58,7 @@ ERROR: undefined-find-nth m n seq quot ;
     >lower '[ name>> _ = ] find ; inline
 
 : stack-find ( seq quot: ( elt -- 1/0/-1 ) -- i/f )
-    map cum-sum [ 0 = ] find drop ; inline
+    map cum-sum 0 swap index ; inline
 
 : tag-classifier ( string -- quot )
     >lower

diff --git a/extra/machine-learning/label-binarizer/label-binarizer.factor b/extra/machine-learning/label-binarizer/label-binarizer.factor
index a233c32540424761c6102b030e525f765a2f386a..2485d66b1d62f19e994ded8769755d4eb19f1682 100644 (file)
--- a/extra/machine-learning/label-binarizer/label-binarizer.factor
+++ b/extra/machine-learning/label-binarizer/label-binarizer.factor
@@ -18,6 +18,4 @@ M: label-binarizer transform-y
     ] map ;
 
 M: label-binarizer inverse-transform-y
-    classes_>> '[
-        [ 1 = ] find drop _ nth
-    ] map ;
+    classes_>> '[ 1 swap index _ nth ] map ;