Mercurial > urweb
comparison src/source_print.sml @ 271:42dfb0d61cf0
'database' declaration threaded through compiler
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 02 Sep 2008 10:51:41 -0400 |
| parents | 71bafe66dbe1 |
| children | e976b187d73a |
comparison
equal
deleted
inserted
replaced
| 270:b9b02613c0c2 | 271:42dfb0d61cf0 |
|---|---|
| 548 space, | 548 space, |
| 549 string "=", | 549 string "=", |
| 550 space, | 550 space, |
| 551 p_con c] | 551 p_con c] |
| 552 | 552 |
| 553 | DDatabase s => box [string "database", | |
| 554 space, | |
| 555 string s] | |
| 556 | |
| 553 and p_str (str, _) = | 557 and p_str (str, _) = |
| 554 case str of | 558 case str of |
| 555 StrConst ds => box [string "struct", | 559 StrConst ds => box [string "struct", |
| 556 newline, | 560 newline, |
| 557 p_list_sep newline p_decl ds, | 561 p_list_sep newline p_decl ds, |