Mercurial > urweb

comparison src/core_print.sml @ 186:88d46972de53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
bool in Basis
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 18:53:20 -0400
parents 19ee24bffbc0
children 8e9f97508f0d
comparison
equal deleted inserted replaced
185:19ee24bffbc0 186:88d46972de53
160 handle E.UnboundNamed _ => string ("CONSTRUCTOR_" ^ Int.toString n) 160 handle E.UnboundNamed _ => string ("CONSTRUCTOR_" ^ Int.toString n)
161 161
162 fun p_patCon env pc = 162 fun p_patCon env pc =
163 case pc of 163 case pc of
164 PConVar n => p_con_named env n 164 PConVar n => p_con_named env n
165 | PConFfi {mod = m, con, ...} => box [string "FFI(", 165 | PConFfi {mod = m, con, ...} => box [string "FFIC(",
166 string m, 166 string m,
167 string ".", 167 string ".",
168 string con, 168 string con,
169 string ")"] 169 string ")"]
170 170