summaryrefslogtreecommitdiffstats
path: root/elab.sml
diff options
context:
space:
mode:
authorRose Hogenson <rosehogenson@posteo.net>2024-06-02 09:17:55 -0700
committerRose Hogenson <rosehogenson@posteo.net>2024-06-02 09:17:55 -0700
commit22b8b7e2478e3b205c89cc7a700058bfe39175f2 (patch)
treead6cf17b8729ab9af71d4d731162e738f3a7b057 /elab.sml
parentSlightly simplify the sort algorithm. (diff)
downloadsml-22b8b7e2478e3b205c89cc7a700058bfe39175f2.tar.zst
Add strings and IO.
Diffstat (limited to 'elab.sml')
-rw-r--r--elab.sml3
1 files changed, 3 insertions, 0 deletions
diff --git a/elab.sml b/elab.sml
index 2895894..a99758a 100644
--- a/elab.sml
+++ b/elab.sml
@@ -10,6 +10,9 @@ struct
| "sub" => Syntax.PSub
| "mul" => Syntax.PMul
| "div" => Syntax.PDiv
+ | "read" => Syntax.PRead
+ | "write" => Syntax.PWrite
+ | "writeErr" => Syntax.PWriteErr
| _ => raise Fail ("invalid op: " ^ s)
fun enumerate (l : 'a list) : (int * 'a) list =