op. ( expr -- )

Vocabulary

boolean-expr

Inputs

expr

a □

Outputs

None

Word description

Print the expression.

Examples

USING: boolean-expr ; X Y ⋁ X ¬ Y ⋀ ⋀ op.
((X ⋀ (¬X ⋀ Y)) ⋁ (Y ⋀ (¬X ⋀ Y)))

See also

expr.

Definition

USING: accessors classes io kernel prettyprint ;

IN: boolean-expr

: op. ( expr -- )
    "(" write
    [ x>> (expr.) ] [ bl class-of pprint bl ] [ y>> (expr.) ]
    tri ")" write ;