test-diamond ( -- )


Vocabulary
compiler.test

Inputs
None

Outputs
None

Definition

: test-diamond ( -- )
0 1 edge 1 { 2 3 } edges 2 4 edge 3 4 edge ;