From 8dd8d705003cf2d0280b5367add11c669d04998f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 13 Nov 2009 03:01:28 -0600 Subject: [PATCH] sequences: inline a couple of words --- core/sequences/sequences.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index fde5b5736d..5017e52ce5 100755 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -659,9 +659,9 @@ PRIVATE> [ 0 swap copy ] keep ] new-like ; -: suffix! ( seq elt -- seq ) over push ; +: suffix! ( seq elt -- seq ) over push ; inline -: append! ( seq1 seq2 -- seq1 ) over push-all ; +: append! ( seq1 seq2 -- seq1 ) over push-all ; inline : last ( seq -- elt ) [ length 1 - ] [ nth ] bi ;