Testing out millet, address a shadowing bug
Signed-off-by: jmug <u.g.a.mariano@gmail.com>
This commit is contained in:
parent
235c5a54bd
commit
c2c25478a9
3 changed files with 5 additions and 2 deletions
2
chap1/millet.toml
Normal file
2
chap1/millet.toml
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
version = 1
|
||||||
|
workspace.root = "sources.mlb"
|
||||||
|
|
@ -63,9 +63,9 @@ and interpExp (e, t) =
|
||||||
| Times => (n1 * n2, te2)
|
| Times => (n1 * n2, te2)
|
||||||
| Div => (n1 div n2, te2)
|
| Div => (n1 div n2, te2)
|
||||||
end
|
end
|
||||||
| EseqExp (s, e) =>
|
| EseqExp (s, ie) =>
|
||||||
let val ts = interpStm(s, t)
|
let val ts = interpStm(s, t)
|
||||||
in interpExp(e, ts)
|
in interpExp(ie, ts)
|
||||||
end
|
end
|
||||||
and printExpList (t, out, el) =
|
and printExpList (t, out, el) =
|
||||||
case el of
|
case el of
|
||||||
|
|
|
||||||
1
chap1/sources.mlb
Normal file
1
chap1/sources.mlb
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
single-line-program.sml
|
||||||
Loading…
Add table
Add a link
Reference in a new issue