Mercurial > urweb
comparison src/core_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 | 5c50b17f5e4a |
| children | 4260ad920c36 |
comparison
equal
deleted
inserted
replaced
| 270:b9b02613c0c2 | 271:42dfb0d61cf0 |
|---|---|
| 444 string s, | 444 string s, |
| 445 space, | 445 space, |
| 446 string ":", | 446 string ":", |
| 447 space, | 447 space, |
| 448 p_con env c] | 448 p_con env c] |
| 449 | DDatabase s => box [string "database", | |
| 450 space, | |
| 451 string s] | |
| 449 | 452 |
| 450 fun p_file env file = | 453 fun p_file env file = |
| 451 let | 454 let |
| 452 val (pds, _) = ListUtil.foldlMap (fn (d, env) => | 455 val (pds, _) = ListUtil.foldlMap (fn (d, env) => |
| 453 (p_decl env d, | 456 (p_decl env d, |