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

Add a couple of onlinline inline declarations

db4
Slava Pestov 2008-09-09 23:38:40 -05:00
parent d72114fcce
commit a3bbce3956
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sequences/sequences.factor
View File

@ -739,10 +739,10 @@ PRIVATE>
[ but-last ] [ peek ] bi ; [ but-last ] [ peek ] bi ;
: unclip-slice ( seq -- rest first ) : unclip-slice ( seq -- rest first )
[ rest-slice ] [ first ] bi ; [ rest-slice ] [ first ] bi ; inline
: unclip-last-slice ( seq -- butfirst last ) : unclip-last-slice ( seq -- butfirst last )
[ but-last-slice ] [ peek ] bi ; [ but-last-slice ] [ peek ] bi ; inline
: <flat-slice> ( seq -- slice ) : <flat-slice> ( seq -- slice )
dup slice? [ { } like ] when 0 over length rot <slice> ; dup slice? [ { } like ] when 0 over length rot <slice> ;