aboutsummaryrefslogtreecommitdiff
path: root/Sil/Syntax.icl
diff options
context:
space:
mode:
authorCamil Staps2017-07-27 22:53:45 +0200
committerCamil Staps2017-07-27 22:53:45 +0200
commitbf0a7bb68485c87737677e4bbb5278b24dcb24cc (patch)
tree468c77df0e0e7e5d05047c8aec50b77d57d3b5dc /Sil/Syntax.icl
parentOptimise multiple pop instructions (diff)
Add tuples (see #1)
Diffstat (limited to 'Sil/Syntax.icl')
-rw-r--r--Sil/Syntax.icl2
1 files changed, 2 insertions, 0 deletions
diff --git a/Sil/Syntax.icl b/Sil/Syntax.icl
index 43d27fc..cc5c3ba 100644
--- a/Sil/Syntax.icl
+++ b/Sil/Syntax.icl
@@ -31,6 +31,8 @@ where
toString (App n args) = n <+ "(" <+ printersperse ", " args <+ ")"
toString (BuiltinApp op e) = op <+ "(" <+ e <+ ")"
toString (BuiltinApp2 e1 op e2) = "(" <+ e1 <+ ") " <+ op <+ " (" <+ e2 <+ ")"
+ toString (Tuple _ es) = "(" <+ printersperse ", " es <+ ")"
+ toString (Field f e) = e <+ "." <+ f
instance toString Op1
where