set-info-if-f ( ? cut-info -- )


Vocabulary
logic.private

Inputs
?an object
cut-infoan object


Outputs
None

Definition
USING: accessors kernel ;

IN: logic.private

: set-info-if-f ( ? cut-info -- )
dup cut?>> [ 2drop ] [ cut?<< ] if ; inline