cps-interpreter/test/programs/record.cps
2024-03-05 14:56:17 -07:00

7 lines
172 B
Plaintext

RECORD([(INT 1, OFFp 0), (INT 2, OFFp 0)], record,
SELECT(0, VAR one, record,
SELECT(1, VAR two, record,
PRIMOP(+, [VAR one, VAR two], [result], [])
)
)
)