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

minor cleanup

db4
Doug Coleman 2009-01-30 19:24:35 -06:00
parent f1a1760e6e
commit 9c2a476d98
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/csv/csv.factor
View File

@ -51,12 +51,8 @@ DEFER: quoted-field ( -- endchar )
: row ( -- eof? array[string] ) : row ( -- eof? array[string] )
[ (row) ] { } make ; [ (row) ] { } make ;
: append-if-row-not-empty ( row -- )
dup { "" } = [ drop ] [ , ] if ;
: (csv) ( -- ) : (csv) ( -- )
row append-if-row-not-empty row harvest [ , ] unless-empty [ (csv) ] when ;
[ (csv) ] when ;
PRIVATE> PRIVATE>