From 89db6cf917002aab329ad35b89444fe1eab1d1f8 Mon Sep 17 00:00:00 2001 From: Lizzy Hunt Date: Tue, 5 Mar 2024 15:36:31 -0700 Subject: add naive record construction support --- test/programs/record.cps | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'test/programs/record.cps') diff --git a/test/programs/record.cps b/test/programs/record.cps index fe82668..5850e03 100644 --- a/test/programs/record.cps +++ b/test/programs/record.cps @@ -1,6 +1,6 @@ RECORD([(INT 1, OFFp 0), (INT 2, OFFp 0)], record, - SELECT(0, VAR one, record, - SELECT(1, VAR two, record, + SELECT(0, VAR record, one, + SELECT(1, VAR record, two, PRIMOP(+, [VAR one, VAR two], [result], []) ) ) -- cgit v1.2.3-70-g09d2