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

use itoa in more places

db4
Doug Coleman 2009-08-02 18:18:31 -05:00
parent a551bdb2c8
commit eb61ffc56d
5 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/checksums/checksums.factor
View File

@ -56,7 +56,7 @@ M: checksum checksum-lines
[ B{ CHAR: \n } join ] dip checksum-bytes ; [ B{ CHAR: \n } join ] dip checksum-bytes ;
: checksum-file ( path checksum -- value ) : checksum-file ( path checksum -- value )
#! normalize-path (file-reader) is equivalen to #! normalize-path (file-reader) is equivalent to
#! binary <file-reader>. We use the lower-level form #! binary <file-reader>. We use the lower-level form
#! so that we can move io.encodings.binary to basis/. #! so that we can move io.encodings.binary to basis/.
[ normalize-path (file-reader) ] dip checksum-stream ; [ normalize-path (file-reader) ] dip checksum-stream ;

2
core/combinators/combinators.factor
View File

@ -113,7 +113,7 @@ ERROR: no-case object ;
] if ; ] if ;
: <buckets> ( initial length -- array ) : <buckets> ( initial length -- array )
next-power-of-2 swap [ nip clone ] curry map ; next-power-of-2 iota swap [ nip clone ] curry map ;
: distribute-buckets ( alist initial quot -- buckets ) : distribute-buckets ( alist initial quot -- buckets )
swapd [ [ dup first ] dip call 2array ] curry map swapd [ [ dup first ] dip call 2array ] curry map

2
core/generic/single/single.factor
View File

@ -145,7 +145,7 @@ GENERIC: compile-engine ( engine -- obj )
default get <array> [ <enum> swap update ] keep ; default get <array> [ <enum> swap update ] keep ;
: lo-tag-number ( class -- n ) : lo-tag-number ( class -- n )
"type" word-prop dup num-tags get member? "type" word-prop dup num-tags get iota member?
[ drop object tag-number ] unless ; [ drop object tag-number ] unless ;
M: tag-dispatch-engine compile-engine M: tag-dispatch-engine compile-engine

2
core/io/binary/binary.factor
View File

@ -10,7 +10,7 @@ IN: io.binary
: nth-byte ( x n -- b ) -8 * shift mask-byte ; inline : nth-byte ( x n -- b ) -8 * shift mask-byte ; inline
: >le ( x n -- byte-array ) [ nth-byte ] with B{ } map-as ; : >le ( x n -- byte-array ) iota [ nth-byte ] with B{ } map-as ;
: >be ( x n -- byte-array ) >le dup reverse-here ; : >be ( x n -- byte-array ) >le dup reverse-here ;
: d>w/w ( d -- w1 w2 ) : d>w/w ( d -- w1 w2 )

6
core/sequences/sequences.factor
View File

@ -701,7 +701,7 @@ PRIVATE>
3tri ; 3tri ;
: reverse-here ( seq -- ) : reverse-here ( seq -- )
[ length 2/ ] [ length ] [ ] tri [ length 2/ iota ] [ length ] [ ] tri
[ [ over - 1 - ] dip exchange-unsafe ] 2curry each ; [ [ over - 1 - ] dip exchange-unsafe ] 2curry each ;
: reverse ( seq -- newseq ) : reverse ( seq -- newseq )
@ -805,14 +805,14 @@ PRIVATE>
<PRIVATE <PRIVATE
: (start) ( subseq seq n -- subseq seq ? ) : (start) ( subseq seq n -- subseq seq ? )
pick length [ pick length iota [
[ 3dup ] dip [ + swap nth-unsafe ] keep rot nth-unsafe = [ 3dup ] dip [ + swap nth-unsafe ] keep rot nth-unsafe =
] all? nip ; inline ] all? nip ; inline
PRIVATE> PRIVATE>
: start* ( subseq seq n -- i ) : start* ( subseq seq n -- i )
pick length pick length swap - 1 + pick length pick length swap - 1 + iota
[ (start) ] find-from [ (start) ] find-from
swap [ 3drop ] dip ; swap [ 3drop ] dip ;