Mercurial > urweb
comparison src/expl_print.sml @ 1254:935a981f4380
Merge
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 06 May 2010 13:57:01 -0400 |
parents | c316ca3c9ec6 |
children | 56bd4a4f6e66 |
comparison
equal
deleted
inserted
replaced
1198:b52929351402 | 1254:935a981f4380 |
---|---|
718 p_exp env e1, | 718 p_exp env e1, |
719 space, | 719 space, |
720 string "=", | 720 string "=", |
721 space, | 721 space, |
722 p_exp env e2] | 722 p_exp env e2] |
723 | DPolicy e1 => box [string "policy", | |
724 space, | |
725 p_exp env e1] | |
723 | 726 |
724 and p_str env (str, _) = | 727 and p_str env (str, _) = |
725 case str of | 728 case str of |
726 StrConst ds => box [string "struct", | 729 StrConst ds => box [string "struct", |
727 newline, | 730 newline, |