From 5e9a34e64254000b9922d69697774c430cdeca36 Mon Sep 17 00:00:00 2001 From: Lizzy Hunt Date: Tue, 5 Mar 2024 14:49:46 -0700 Subject: fix parsing of RecordExpressions --- test/programs/index.ts | 3 +++ test/programs/record.cps | 7 +++++++ 2 files changed, 10 insertions(+) create mode 100644 test/programs/record.cps (limited to 'test/programs') diff --git a/test/programs/index.ts b/test/programs/index.ts index fae3b59..71ae303 100644 --- a/test/programs/index.ts +++ b/test/programs/index.ts @@ -19,4 +19,7 @@ export namespace TestPrograms { export const Application = Bun.file( join(import.meta.dir, 'application.cps'), ).text(); + export const RecordConstruction = Bun.file( + join(import.meta.dir, 'record.cps'), + ).text(); } diff --git a/test/programs/record.cps b/test/programs/record.cps new file mode 100644 index 0000000..fe82668 --- /dev/null +++ b/test/programs/record.cps @@ -0,0 +1,7 @@ +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], []) + ) + ) +) \ No newline at end of file -- cgit v1.2.3-70-g09d2