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

[factor.git] / extra / audio / wav / wav.factor

diff --git a/extra/audio/wav/wav.factor b/extra/audio/wav/wav.factor
index 8c94ce9767febc352c4c029b13eac619506f291f..fe062df9cf2fe8d54dca429530b854822dea59c9 100644 (file)
--- a/extra/audio/wav/wav.factor
+++ b/extra/audio/wav/wav.factor
@@ -38,12 +38,12 @@ STRUCT: wav-data-chunk
 
 :: read-wav-chunks ( -- fmt data )
     f :> fmt! f :> data!
-    [ { [ fmt data and not ] [ read-chunk ] } 0&& dup ]
+    [ { [ fmt data and not ] [ read-chunk ] } 0&& ]
     [ {
         { [ dup FMT-MAGIC  wav-fmt-chunk  check-chunk ] [ wav-fmt-chunk  memory>struct fmt!  ] }
         { [ dup DATA-MAGIC wav-data-chunk check-chunk ] [ wav-data-chunk memory>struct data! ] }
         [ drop ]
-    } cond ] while drop
+    } cond ] while*
     fmt data 2dup and [ invalid-audio-file ] unless ;
 
 : verify-wav ( chunk -- )