steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add inline declarations

db4
Slava Pestov 2008-01-13 17:09:01 -05:00
parent 2f32823690
commit b870bce81d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sequences/sequences.factor
View File

@ -199,7 +199,7 @@ TUPLE: slice-error reason ;
: <slice> ( from to seq -- slice ) : <slice> ( from to seq -- slice )
dup slice? [ collapse-slice ] when dup slice? [ collapse-slice ] when
check-slice check-slice
slice construct-boa ; slice construct-boa ; inline
M: slice virtual-seq slice-seq ; M: slice virtual-seq slice-seq ;
M: slice virtual@ [ slice-from + ] keep slice-seq ; M: slice virtual@ [ slice-from + ] keep slice-seq ;

2
core/vectors/vectors.factor
View File

@ -7,7 +7,7 @@ IN: vectors
: <vector> ( n -- vector ) f <array> 0 array>vector ; inline : <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 M: vector like
drop dup vector? [ drop dup vector? [