factor: trim using lists

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

diff --git a/extra/sequences/inserters/inserters.factor b/extra/sequences/inserters/inserters.factor
index 08b9b8911d49fe91e7bf3f44fbd0e36f98dd3e25..725922f2d26a22e030b0c415663a96d1c2a9fd79 100644 (file)
--- a/extra/sequences/inserters/inserters.factor
+++ b/extra/sequences/inserters/inserters.factor
@@ -1,5 +1,6 @@
-! (c)2010 Joe Groff bsd license
-USING: accessors fry growable kernel locals math sequences ;
+! Copyright (C) 2010 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors kernel math sequences ;
 IN: sequences.inserters
 
 TUPLE: offset-growable { underlying read-only } { offset read-only } ;
@@ -22,12 +23,12 @@ M: inserter new-resizable
 M: inserter length
     drop 0 ; inline
 
-TUPLE: back-inserter { underlying read-only } ;
-C: <back-inserter> back-inserter
+TUPLE: appender { underlying read-only } ;
+C: <appender> appender
 
-INSTANCE: back-inserter inserter
+INSTANCE: appender inserter
 
-M:: back-inserter new-sequence ( len inserter -- sequence )
+M:: appender new-sequence ( len inserter -- sequence )
     inserter underlying>> :> underlying
     underlying length :> old-length
     old-length len + :> new-length
@@ -41,4 +42,3 @@ INSTANCE: replacer inserter
 
 M: replacer new-sequence
     underlying>> [ set-length ] keep ; inline
-