From b870bce81d78170f7cb52346b98d1e09ee87e54a Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 13 Jan 2008 17:09:01 -0500 Subject: [PATCH] Add inline declarations --- core/sequences/sequences.factor | 2 +- core/vectors/vectors.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index a0c909bf56..151777b0c7 100755 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -199,7 +199,7 @@ TUPLE: slice-error reason ; : ( from to seq -- slice ) dup slice? [ collapse-slice ] when check-slice - slice construct-boa ; + slice construct-boa ; inline M: slice virtual-seq slice-seq ; M: slice virtual@ [ slice-from + ] keep slice-seq ; diff --git a/core/vectors/vectors.factor b/core/vectors/vectors.factor index 661ef9ddc8..8d52b8fa9c 100755 --- a/core/vectors/vectors.factor +++ b/core/vectors/vectors.factor @@ -7,7 +7,7 @@ IN: vectors : ( n -- vector ) f 0 array>vector ; inline -: >vector ( seq -- vector ) V{ } clone-like ; inline +: >vector ( seq -- vector ) V{ } clone-like ; M: vector like drop dup vector? [