core/basis/extra: using while* in a few places.

[factor.git] / extra / cuesheet / cuesheet.factor

diff --git a/extra/cuesheet/cuesheet.factor b/extra/cuesheet/cuesheet.factor
index 8f5b86a599e8eff460a6981c86e706a67e7ca5f1..77eaa721ddea258620bed6beb233f2e11a185a9c 100644 (file)
--- a/extra/cuesheet/cuesheet.factor
+++ b/extra/cuesheet/cuesheet.factor
@@ -127,7 +127,7 @@ ERROR: unknown-syntax syntax ;
 PRIVATE>
 
 : read-cuesheet ( -- cuesheet )
-    <cuesheet> [ readln dup ] [ parse-line ] while drop ;
+    <cuesheet> [ readln ] [ parse-line ] while* ;
 
 : file>cuesheet ( path -- cuesheet )
     utf8 [ read-cuesheet ] with-file-reader ;