From: Doug Coleman Date: Mon, 20 Feb 2023 02:06:09 +0000 (-0600) Subject: effects: remove in-out X-Git-Tag: 0.99~544 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=8789814ecbcee14319b81f63339d8b590ef5fd52 effects: remove in-out --- diff --git a/core/effects/effects.factor b/core/effects/effects.factor index a795169325..97955390a1 100644 --- a/core/effects/effects.factor +++ b/core/effects/effects.factor @@ -11,8 +11,6 @@ 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 ;