diff options
Diffstat (limited to 'src/source_print.sml')
-rw-r--r-- | src/source_print.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/source_print.sml b/src/source_print.sml index 79f3c254..4bd7e28e 100644 --- a/src/source_print.sml +++ b/src/source_print.sml @@ -252,7 +252,7 @@ fun p_exp' par (e, _) = | ECase (e, pes) => parenIf par (box [string "case", space, - p_exp' false e, + p_exp e, space, string "of", space, |