HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Permission revocation
[hcoop/domtool2.git]
/
src
/
htmlPrint.sml
diff --git
a/src/htmlPrint.sml
b/src/htmlPrint.sml
index
5b756c3
..
2018556
100644
(file)
--- a/
src/htmlPrint.sml
+++ b/
src/htmlPrint.sml
@@
-139,6
+139,9
@@
fun p_exp (e, _) =
punct ":", space 1,
dBox [punct "(", p_typ t, punct ")"],
space 1, punct "->", space 1, p_exp e, punct ")"]
punct ":", space 1,
dBox [punct "(", p_typ t, punct ")"],
space 1, punct "->", space 1, p_exp e, punct ")"]
+ | EALam (x, p, e) => dBox [punct "(\\", space 1, exp x, space 1,
+ punct ":", space 1, p_pred p,
+ space 1, punct "->", space 1, p_exp e, punct ")"]
| EVar x => exp x
| EApp (e1, e2) => dBox [punct "(", p_exp e1, break {nsp = 1, offset = 0}, p_exp e2, punct ")"]
| EVar x => exp x
| EApp (e1, e2) => dBox [punct "(", p_exp e1, break {nsp = 1, offset = 0}, p_exp e2, punct ")"]