From c2c25478a9d262f6794559d9d84010e8f0da189c Mon Sep 17 00:00:00 2001 From: jmug Date: Wed, 18 Dec 2024 19:45:56 -0800 Subject: [PATCH] Testing out millet, address a shadowing bug Signed-off-by: jmug --- chap1/millet.toml | 2 ++ chap1/single-line-program.sml | 4 ++-- chap1/sources.mlb | 1 + 3 files changed, 5 insertions(+), 2 deletions(-) create mode 100644 chap1/millet.toml create mode 100644 chap1/sources.mlb diff --git a/chap1/millet.toml b/chap1/millet.toml new file mode 100644 index 0000000..579133e --- /dev/null +++ b/chap1/millet.toml @@ -0,0 +1,2 @@ +version = 1 +workspace.root = "sources.mlb" diff --git a/chap1/single-line-program.sml b/chap1/single-line-program.sml index 449896e..054138c 100644 --- a/chap1/single-line-program.sml +++ b/chap1/single-line-program.sml @@ -63,9 +63,9 @@ and interpExp (e, t) = | Times => (n1 * n2, te2) | Div => (n1 div n2, te2) end - | EseqExp (s, e) => + | EseqExp (s, ie) => let val ts = interpStm(s, t) - in interpExp(e, ts) + in interpExp(ie, ts) end and printExpList (t, out, el) = case el of diff --git a/chap1/sources.mlb b/chap1/sources.mlb new file mode 100644 index 0000000..bb73460 --- /dev/null +++ b/chap1/sources.mlb @@ -0,0 +1 @@ +single-line-program.sml