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

fix docs, stack effect

db4
Doug Coleman 2008-08-30 11:46:35 -05:00
parent d58cee42fb
commit 11f6bdcafb
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/float-arrays/float-arrays.factor
View File

@ -58,8 +58,7 @@ INSTANCE: float-array sequence
: 4float-array ( w x y z -- array ) : 4float-array ( w x y z -- array )
T{ float-array } 4sequence ; inline T{ float-array } 4sequence ; inline
: F{ ( parsed -- parsed ) : F{ \ } [ >float-array ] parse-literal ; parsing
\ } [ >float-array ] parse-literal ; parsing
M: float-array pprint-delims drop \ F{ \ } ; M: float-array pprint-delims drop \ F{ \ } ;

2
extra/combinators/lib/lib.factor
View File

@ -150,4 +150,4 @@ MACRO: predicates ( seq -- quot/f )
>r [ [ dup ] prepend ] map r> zip [ drop f ] suffix >r [ [ dup ] prepend ] map r> zip [ drop f ] suffix
[ cond ] curry ; [ cond ] curry ;
: %chance ( quot integer -- ) 100 random > swap when ; inline : %chance ( quot n -- ) 100 random > swap when ; inline

2
extra/csv/csv.factor
View File

@ -84,5 +84,5 @@ DEFER: quoted-field ( -- endchar )
: write-row ( row -- ) : write-row ( row -- )
[ delimiter get write1 ] [ escape-if-required write ] interleave nl ; inline [ delimiter get write1 ] [ escape-if-required write ] interleave nl ; inline
: write-csv ( rows outstream -- ) : write-csv ( rows stream -- )
[ [ write-row ] each ] with-output-stream ; [ [ write-row ] each ] with-output-stream ;