fix docs, stack effect
parent
d58cee42fb
commit
11f6bdcafb
|
@ -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{ \ } ;
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue