Mercurial > urweb
comparison src/mono_print.sml @ 186:88d46972de53
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 |
---|---|
78 handle E.UnboundNamed _ => string ("CONSTRUCTOR_" ^ Int.toString n) | 78 handle E.UnboundNamed _ => string ("CONSTRUCTOR_" ^ Int.toString n) |
79 | 79 |
80 fun p_patCon env pc = | 80 fun p_patCon env pc = |
81 case pc of | 81 case pc of |
82 PConVar n => p_con_named env n | 82 PConVar n => p_con_named env n |
83 | PConFfi {mod = m, con, ...} => box [string "FFI(", | 83 | PConFfi {mod = m, con, ...} => box [string "FFIC(", |
84 string m, | 84 string m, |
85 string ".", | 85 string ".", |
86 string con, | 86 string con, |
87 string ")"] | 87 string ")"] |
88 | 88 |