Mercurial > urweb
comparison src/expl_print.sml @ 163:80192edca30d
Datatypes through corify
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 29 Jul 2008 13:16:21 -0400 |
parents | 06a98129b23f |
children | 33d4a8eea484 |
comparison
equal
deleted
inserted
replaced
162:06a98129b23f | 163:80192edca30d |
---|---|
283 string x, | 283 string x, |
284 space, | 284 space, |
285 string "=", | 285 string "=", |
286 space, | 286 space, |
287 p_list_sep (box [space, string "|", space]) | 287 p_list_sep (box [space, string "|", space]) |
288 (fn (x, _, NONE) => string x | 288 (fn (x, n, NONE) => if !debug then (string (x ^ "__" ^ Int.toString n)) |
289 | (x, _, SOME t) => box [string x, space, string "of", space, p_con env t]) | 289 else string x |
290 | (x, _, SOME t) => box [if !debug then (string (x ^ "__" ^ Int.toString n)) | |
291 else string x, space, string "of", space, p_con env t]) | |
290 cons] | 292 cons] |
291 end | 293 end |
292 | 294 |
293 fun p_sgn_item env (sgi, _) = | 295 fun p_sgn_item env (sgi, _) = |
294 case sgi of | 296 case sgi of |