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

View File

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

View File

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

View File

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