basis/extra: removing '[ @ ] in favor of _ for fried quotations.

[factor.git] / extra / io / random / random.factor

diff --git a/extra/io/random/random.factor b/extra/io/random/random.factor
index 6892158bb26392731269b6ee011bce63fe527261..dbb02edf2a7cf094d9cf6cbba0f7f1c52527a61c 100644 (file)
--- a/extra/io/random/random.factor
+++ b/extra/io/random/random.factor
@@ -9,7 +9,7 @@ IN: io.random
 <PRIVATE
 
 : each-numbered-line ( ... quot: ( ... line number -- ... ) -- ... )
-    [ 1 ] dip '[ swap [ @ ] [ 1 + ] bi ] each-line drop ; inline
+    [ 1 ] dip '[ swap _ [ 1 + ] bi ] each-line drop ; inline
 
 PRIVATE>