diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor index 6fe3de4f03..9dc01c04fa 100755 --- a/extra/sequences/lib/lib.factor +++ b/extra/sequences/lib/lib.factor @@ -152,3 +152,6 @@ PRIVATE> : enumerate ( seq -- seq' ) >alist ; +: splice ( left-seq right-seq seq -- newseq ) swap 3append ; + +: surround ( seq left-seq right-seq -- newseq ) swapd 3append ;