diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-06-22 10:17:34 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-22 10:17:34 -0400 |
| commit | d60f854fc35ce30fb698f3d8e87b88938001fdaf (patch) | |
| tree | 993aecf3c64b1e472749ccc4cc3d9ffa6dd2ed3e /src/flat_print.sml | |
| parent | f3ddf9922b90bdd45ca5b1c33c72ff316d5440eb (diff) | |
FFI through cloconv
Diffstat (limited to 'src/flat_print.sml')
| -rw-r--r-- | src/flat_print.sml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/flat_print.sml b/src/flat_print.sml index 08008e9a..ccfceb2f 100644 --- a/src/flat_print.sml +++ b/src/flat_print.sml @@ -66,6 +66,7 @@ fun p_typ' par env (t, _) = string (#1 (E.lookupTNamed env n) ^ "__" ^ Int.toString n) else string (#1 (E.lookupTNamed env n)) + | TFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"] and p_typ env = p_typ' false env @@ -83,6 +84,14 @@ fun p_exp' par env (e, _) = string (#1 (E.lookupENamed env n) ^ "__" ^ Int.toString n) else string (#1 (E.lookupENamed env n)) + | EFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"] + | EFfiApp (m, x, es) => box [string "FFI(", + string m, + string ".", + string x, + string "(", + p_list (p_exp env) es, + string "))"] | ECode n => string ("code$" ^ Int.toString n) | EApp (e1, e2) => parenIf par (box [p_exp env e1, space, |