Add inline declarations
parent
2f32823690
commit
b870bce81d
|
@ -199,7 +199,7 @@ TUPLE: slice-error reason ;
|
|||
: <slice> ( 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 ;
|
||||
|
|
|
@ -7,7 +7,7 @@ IN: vectors
|
|||
|
||||
: <vector> ( n -- vector ) f <array> 0 array>vector ; inline
|
||||
|
||||
: >vector ( seq -- vector ) V{ } clone-like ; inline
|
||||
: >vector ( seq -- vector ) V{ } clone-like ;
|
||||
|
||||
M: vector like
|
||||
drop dup vector? [
|
||||
|
|
Loading…
Reference in New Issue