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

check-slice inline

release
Slava Pestov 2007-09-28 17:06:16 -04:00
parent 23e85d674c
commit 31e59f2098
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sequences/sequences.factor
View File

@ -194,7 +194,7 @@ TUPLE: slice-error reason ;
: check-slice ( from to seq -- from to seq ) : check-slice ( from to seq -- from to seq )
pick 0 < [ "start < 0" slice-error ] when pick 0 < [ "start < 0" slice-error ] when
dup length pick < [ "end > sequence" slice-error ] when dup length pick < [ "end > sequence" slice-error ] when
pick pick > [ "start > end" slice-error ] when ; pick pick > [ "start > end" slice-error ] when ; inline
: <slice> ( from to seq -- slice ) : <slice> ( from to seq -- slice )
dup slice? [ collapse-slice ] when dup slice? [ collapse-slice ] when