15 lines
257 B
Forth
15 lines
257 B
Forth
module LDText
|
|
|
|
module Ast =
|
|
type Rung = Step list
|
|
|
|
and Instr = { Op: string; Args: Operand list }
|
|
|
|
and Step =
|
|
| StepInstr of Instr
|
|
| StepBranch of Step list
|
|
|
|
and Operand =
|
|
| OperandHole
|
|
| OperandTag of string
|