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? [