cps-interpreter/test/programs/record.cps

7 lines
172 B
Plaintext
Raw Normal View History

2024-03-05 16:49:46 -05:00
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], [])
)
)
)