Mercurial > urweb

comparison src/elab_print.sml @ 14:f1c36df29ed7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Primitive type constants
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 12:27:08 -0400
parents 6049e2193bf2
children 1ab48e37d0ef
comparison
equal deleted inserted replaced
13:6049e2193bf2 14:f1c36df29ed7
149 149
150 and p_con env = p_con' false env 150 and p_con env = p_con' false env
151 151
152 fun p_exp' par env (e, _) = 152 fun p_exp' par env (e, _) =
153 case e of 153 case e of
154 ERel n => 154 EPrim p => Prim.p_t p
155 | ERel n =>
155 if !debug then 156 if !debug then
156 string (#1 (E.lookupERel env n) ^ "_" ^ Int.toString n) 157 string (#1 (E.lookupERel env n) ^ "_" ^ Int.toString n)
157 else 158 else
158 string (#1 (E.lookupERel env n)) 159 string (#1 (E.lookupERel env n))
159 | ENamed n => 160 | ENamed n =>