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

[factor.git] / basis / json / reader / reader.factor

diff --git a/basis/json/reader/reader.factor b/basis/json/reader/reader.factor
index 39e932c1025f0a5c59ee6ab9343b39c596244102..7d223c062312957769bd225855292d4c13e1b1cb 100644 (file)
--- a/basis/json/reader/reader.factor
+++ b/basis/json/reader/reader.factor
@@ -126,7 +126,7 @@ DEFER: (read-json-string)
     } case ;
 
 : json-read-input ( stream -- objects )
-    V{ } clone over '[ _ stream-read1 dup ] [ scan ] while drop nip ;
+    V{ } clone over '[ _ stream-read1 ] [ scan ] while* nip ;
 
 ! If there are no json objects, return an empty hashtable
 ! This happens for empty files.