factor: put inline on same line as ; for experimentation

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 21450c05513ee76b39f94a96e04c52868315a58f..4775f33d8fe3f7c56692f522b002baa5b104e824 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -212,8 +212,8 @@ PRIVATE>
 : ((each-from)) ( i seq -- n quot )
     [ length over [-] swap ] keep '[ _ + _ nth-unsafe ] ; inline
 
-: (each-from) ( i seq quot -- n quot' ) [ ((each-from)) ] dip compose ;
-    inline
+: (each-from) ( i seq quot -- n quot' )
+    [ ((each-from)) ] dip compose ; inline
 
 PRIVATE>