Move make to its own vocabulary, remove fry _ feature

[factor.git] / basis / generalizations / generalizations.factor

diff --git a/basis/generalizations/generalizations.factor b/basis/generalizations/generalizations.factor
index c97e9c7b914e20ded0b17cf0b175fc1399026a63..a3c86b6683e6c51c770a49f6337e6f2068697e2f 100755 (executable)
--- a/basis/generalizations/generalizations.factor
+++ b/basis/generalizations/generalizations.factor
@@ -14,8 +14,8 @@ MACRO: narray ( n -- quot )
 \r
 MACRO: firstn ( n -- )\r
     dup zero? [ drop [ drop ] ] [\r
-        [ [ '[ , _ nth-unsafe ] ] map ]\r
-        [ 1- '[ , _ bounds-check 2drop ] ]\r
+        [ [ '[ [ , ] dip nth-unsafe ] ] map ]\r
+        [ 1- '[ [ , ] dip bounds-check 2drop ] ]\r
         bi prefix '[ , cleave ]\r
     ] if ;\r
 \r