diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-02 14:59:27 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-02 14:59:27 -0400 |
commit | 230df59a100ea7f1b8b74297fe28dcb567a283c6 (patch) | |
tree | fb9626bebff56bdea99791711814807c9f0dd06f /src/cjr_print.sml | |
parent | 2a572eeba9d521400872e6588b3f709818a5d412 (diff) |
Switch base types to 64-bit versions
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 41ecb7bc..b1f9fd6c 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -157,7 +157,7 @@ fun p_pat (env, exit, depth) (p, _) = space, string "!=", space, - Prim.p_t (Prim.Int n), + Prim.p_t_GCC (Prim.Int n), string ")", space, exit], @@ -169,7 +169,7 @@ fun p_pat (env, exit, depth) (p, _) = string (Int.toString depth), string ",", space, - Prim.p_t (Prim.String s), + Prim.p_t_GCC (Prim.String s), string "))", space, exit], @@ -323,7 +323,7 @@ fun patConInfo env pc = fun p_exp' par env (e, loc) = case e of - EPrim p => Prim.p_t p + EPrim p => Prim.p_t_GCC p | ERel n => p_rel env n | ENamed n => p_enamed env n | ECon (Enum, pc, _) => p_patCon env pc |