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 |