Resolved merge.

[factor.git] / basis / csv / csv.factor

diff --git a/basis/csv/csv.factor b/basis/csv/csv.factor
index 5902999a7641f69d8f585dfac75ae992be1d937b..23416d6912aa6899efa3eff7f739fd3d599966d9 100755 (executable)
--- a/basis/csv/csv.factor
+++ b/basis/csv/csv.factor
@@ -63,7 +63,7 @@ PRIVATE>
 
 : csv ( stream -- rows )
     [ [ (csv) ] { } make ] with-input-stream
-    dup peek { "" } = [ but-last ] when ;
+    dup last { "" } = [ but-last ] when ;
 
 : file>csv ( path encoding -- csv )
     <file-reader> csv ;