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

[factor.git] / core / effects / effects.factor

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index 97955390a1aa08c9bf885fd10bd46fc561c3c67a..a79516932588d6f0821e3885b197780d8315b5de 100644 (file)
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -11,6 +11,8 @@ TUPLE: effect
 { in-var read-only }
 { out-var read-only } ;
 
+: in-out ( effect -- in out ) [ in>> ] [ out>> ] bi ; inline
+
 : ?terminated ( out -- out terminated? )
     dup { "*" } = [ drop { } t ] [ f ] if ;