From c56cf86793f080aa0728e15b4f67c12fecebfc88 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@gmail.com>
Date: Thu, 24 Apr 2008 23:11:21 -0700
Subject: [PATCH] make sequences.lib.replicate inline

---
 extra/sequences/lib/lib.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index fe2c660d54..e534a204b1 100755
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@@ -133,7 +133,7 @@ MACRO: firstn ( n -- )
 
 : replicate ( seq quot -- newseq )
     #! quot: ( -- obj )
-    [ drop ] swap compose map ;
+    [ drop ] swap compose map ; inline
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!