diff options
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index a41ba0d2..d6c0db98 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -249,6 +249,7 @@ fun p_patMatch (env, disc) (p, loc) = p] end + | PRecord [] => string "1" | PRecord xps => p_list_sep (box [space, string "&&", space]) (fn (x, p, _) => p_patMatch (env, disc ^ ".__uwf_" ^ ident x) p) xps |