Mercurial > urweb

comparison src/mono_print.sml @ 577:3d56940120b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Setting a source server-side
author Adam Chlipala <adamc@hcoop.net>
date Tue, 30 Dec 2008 10:49:42 -0500
parents ac947e2f29ff
children 1e589a60b86f
comparison
equal deleted inserted replaced
576:813f1e78d9d0 577:3d56940120b1
63 handle E.UnboundNamed _ => string ("UNBOUND_DATATYPE_" ^ Int.toString n)) 63 handle E.UnboundNamed _ => string ("UNBOUND_DATATYPE_" ^ Int.toString n))
64 | TFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"] 64 | TFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"]
65 | TOption t => box [string "option(", 65 | TOption t => box [string "option(",
66 p_typ env t, 66 p_typ env t,
67 string ")"] 67 string ")"]
68 | TSource => string "source"
68 | TSignal t => box [string "signal(", 69 | TSignal t => box [string "signal(",
69 p_typ env t, 70 p_typ env t,
70 string ")"] 71 string ")"]
71 72
72 and p_typ env = p_typ' false env 73 and p_typ env = p_typ' false env