From 457c482397e2ca745067e5a3ef2c7d71d7daf187 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Sun, 5 May 2024 21:12:16 -0700
Subject: Add tuples.

---
 cps.sml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'cps.sml')

diff --git a/cps.sml b/cps.sml
index cd61a7a..894c57e 100644
--- a/cps.sml
+++ b/cps.sml
@@ -47,6 +47,10 @@ struct
     | Syntax.LInt i => cont (Syntax.VInt i)
     | Syntax.LString s => cont (Syntax.VString s)
     | Syntax.LRecord [] => cont (Syntax.VInt 0)
+    | Syntax.LSelect (i, expr) =>
+        let val temp = Gensym.new ()
+        in toCPS expr (fn x => Syntax.CSelect (i, x, temp, cont (Syntax.VVar temp)))
+        end
     | Syntax.LRecord exprs =>
         let
           fun go [] vars =
-- 
cgit v1.3.1