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

slice boa -> <slice-unsafe> 

If you didn't define it, don't boa it
db4
Joe Groff 2011-11-09 19:22:09 -08:00
parent 0cf0b91aad
commit 47cedd8d3d
5 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/grouping/grouping.factor
View File

@ -25,7 +25,7 @@ INSTANCE: slice-chunking chunking
INSTANCE: slice-chunking sequence INSTANCE: slice-chunking sequence
M: slice-chunking nth group@ <slice> ; inline M: slice-chunking nth group@ <slice> ; inline
M: slice-chunking nth-unsafe group@ slice boa ; inline M: slice-chunking nth-unsafe group@ <slice-unsafe> ; inline
MIXIN: abstract-groups MIXIN: abstract-groups
INSTANCE: abstract-groups sequence INSTANCE: abstract-groups sequence

6
basis/regexp/regexp.factor
View File

@ -103,7 +103,7 @@ PRIVATE>
collector [ each-match ] dip >array ; inline collector [ each-match ] dip >array ; inline
: all-matching-slices ( string regexp -- seq ) : all-matching-slices ( string regexp -- seq )
[ slice boa ] map-matches ; [ <slice-unsafe> ] map-matches ;
: all-matching-subseqs ( string regexp -- seq ) : all-matching-subseqs ( string regexp -- seq )
[ subseq ] map-matches ; [ subseq ] map-matches ;
@ -126,14 +126,14 @@ PRIVATE>
:: first-match ( string regexp -- slice/f ) :: first-match ( string regexp -- slice/f )
string regexp prepare-match-iterator do-next-match [ string regexp prepare-match-iterator do-next-match [
regexp reverse-regexp? [ [ 1 + ] bi@ ] when regexp reverse-regexp? [ [ 1 + ] bi@ ] when
string slice boa string <slice-unsafe>
] [ 2drop f ] if ; ] [ 2drop f ] if ;
: re-contains? ( string regexp -- ? ) : re-contains? ( string regexp -- ? )
prepare-match-iterator do-next-match [ 2drop ] dip >boolean ; prepare-match-iterator do-next-match [ 2drop ] dip >boolean ;
: re-split ( string regexp -- seq ) : re-split ( string regexp -- seq )
[ slice boa ] (re-split) ; [ <slice-unsafe> ] (re-split) ;
: re-replace ( string regexp replacement -- result ) : re-replace ( string regexp replacement -- result )
[ [ subseq ] (re-split) ] dip join ; [ [ subseq ] (re-split) ] dip join ;

2
basis/sequences/parser/parser.factor
View File

@ -64,7 +64,7 @@ TUPLE: sequence-parser sequence n ;
[ 2drop 0 < ] [ 2drop 0 < ]
[ [ drop ] 2dip length > ] [ [ drop ] 2dip length > ]
[ drop > ] [ drop > ]
} 3|| [ 3drop f ] [ slice boa ] if ; inline } 3|| [ 3drop f ] [ <slice-unsafe> ] if ; inline
:: take-sequence ( sequence-parser sequence -- obj/f ) :: take-sequence ( sequence-parser sequence -- obj/f )
sequence-parser [ n>> dup sequence length + ] [ sequence>> ] bi sequence-parser [ n>> dup sequence length + ] [ sequence>> ] bi

2
basis/tuple-arrays/tuple-arrays.factor
View File

@ -21,7 +21,7 @@ MACRO: boa-unsafe ( class -- quot ) tuple-layout '[ _ <tuple-boa> ] ;
[ new ] [ smart-tuple>array ] bi ; inline [ new ] [ smart-tuple>array ] bi ; inline
: tuple-slice ( n seq -- slice ) : tuple-slice ( n seq -- slice )
[ n>> [ * dup ] keep + ] [ seq>> ] bi slice boa ; inline [ n>> [ * dup ] keep + ] [ seq>> ] bi <slice-unsafe> ; inline
: read-tuple ( slice class -- tuple ) : read-tuple ( slice class -- tuple )
'[ _ boa-unsafe ] input<sequence-unsafe ; inline '[ _ boa-unsafe ] input<sequence-unsafe ; inline

2
core/sequences/sequences.factor
View File

@ -234,7 +234,7 @@ PRIVATE>
: <slice> ( from to seq -- slice ) : <slice> ( from to seq -- slice )
check-slice check-slice
dup slice? [ collapse-slice ] when dup slice? [ collapse-slice ] when
slice boa ; inline <slice-unsafe> ; inline
M: slice virtual-exemplar seq>> ; inline M: slice virtual-exemplar seq>> ; inline