cps-interpreter/test/programs/record.cps
2024-03-05 15:36:31 -07:00

7 lines
172 B
Plaintext

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