add two words to sequences.lib

2008-11-11 13:06:31 -06:00 · 2008-11-11 13:06:31 -06:00 · d575664969
parent 4caf275b1f
commit d575664969
1 changed files with 3 additions and 0 deletions
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@ -152,3 +152,6 @@ PRIVATE>

 : enumerate ( seq -- seq' ) <enum> >alist ;

+: splice ( left-seq right-seq seq -- newseq ) swap 3append ;
+
+: surround ( seq left-seq right-seq -- newseq ) swapd 3append ;