core: push-if -> push-when, refactoring sequence words

[factor.git] / basis / io / crlf / crlf.factor

diff --git a/basis/io/crlf/crlf.factor b/basis/io/crlf/crlf.factor
index 013cbbc19fcc9b65af49496b7c9116af0900750a..e173a80173fca920a73325d768edbc36922c14d5 100644 (file)
--- a/basis/io/crlf/crlf.factor
+++ b/basis/io/crlf/crlf.factor
@@ -38,7 +38,7 @@ IN: io.crlf
     input-stream get stream-read1-ignoring-crlf ;
 
 : push-ignoring-crlf ( elt seq -- )
-    [ "\r\n" member? not ] swap push-if ;
+    [ "\r\n" member? not ] swap push-when ;
 
 : push-all-ignoring-crlf ( src dst -- )
     [ push-ignoring-crlf ] curry each ;