Mercurial > urweb

comparison src/mono_print.sml @ 115:ff13d390ec60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cjr ready for dispatch code generation
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 12:56:39 -0400
parents 2d6116de9cca
children 6230bdd122e7
comparison
equal deleted inserted replaced
114:0644d3c3bedf 115:ff13d390ec60
164 string "=", 164 string "=",
165 space, 165 space,
166 p_exp env e] 166 p_exp env e]
167 end 167 end
168 168
169 | DExport n => box [string "export", 169 | DExport (s, n) => box [string "export",
170 space, 170 space,
171 p_enamed env n] 171 p_enamed env n,
172 space,
173 string "as",
174 string s]
172 175
173 fun p_file env file = 176 fun p_file env file =
174 let 177 let
175 val (pds, _) = ListUtil.foldlMap (fn (d, env) => 178 val (pds, _) = ListUtil.foldlMap (fn (d, env) =>
176 (p_decl env d, 179 (p_decl env d,