minor cleanup

diff --git a/basis/csv/csv.factor b/basis/csv/csv.factor
index 7789f015d9f5a3ebe8e0a0c49e7c8c6157de7ce1..152b3dcbba544f354d45c6af70d3485f51e66dde 100755 (executable)
--- a/basis/csv/csv.factor
+++ b/basis/csv/csv.factor
@@ -51,12 +51,8 @@ DEFER: quoted-field ( -- endchar )
 : row ( -- eof? array[string] )
     [ (row) ] { } make ;
 
-: append-if-row-not-empty ( row -- )
-    dup { "" } = [ drop ] [ , ] if ;
-
 : (csv) ( -- )
-    row append-if-row-not-empty
-    [ (csv) ] when ;
+    row harvest [ , ] unless-empty [ (csv) ] when ;
   
 PRIVATE>