core: Add the shuffler words but without primitives.

[factor.git] / core / io / streams / c / c.factor

diff --git a/core/io/streams/c/c.factor b/core/io/streams/c/c.factor
index 8dc14ef55f9f9b1657c2919d0480eeef6bfbf05a..8d1d3207c5870b3bc0723cde1284fa0da04a0890 100644 (file)
--- a/core/io/streams/c/c.factor
+++ b/core/io/streams/c/c.factor
@@ -53,9 +53,9 @@ M: c-reader stream-read1
 : read-until-loop ( handle seps accum -- accum ch )
     pick fgetc dup [
         pick dupd member-eq?
-        [ [ 2drop ] 2dip ] [ suffix! read-until-loop ] if
+        [ 2nipd ] [ suffix! read-until-loop ] if
     ] [
-        [ 2drop ] 2dip
+        2nipd
     ] if ; inline recursive
 
 M: c-reader stream-read-until