diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-07-18 15:08:21 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-18 15:08:21 -0400 |
commit | 19cd9e965929d541e6714f62154f01b9e487a712 (patch) | |
tree | 513b9da066fd9a44d71334c2fd1820f559c39994 /src/cjr_print.sml | |
parent | e89607929e56988040d1b31e62362c16a9b75147 (diff) |
FFI manual section
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index eccd60c2..83b49719 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -85,11 +85,11 @@ fun p_typ' par env (t, loc) = (case ListUtil.search #3 (!xncs) of NONE => raise Fail "CjrPrint: TDatatype marked Option has no constructor with an argument" | SOME t => - case #1 t of - TDatatype _ => p_typ' par env t - | TFfi ("Basis", "string") => p_typ' par env t - | _ => box [p_typ' par env t, - string "*"]) + if isUnboxable t then + p_typ' par env t + else + box [p_typ' par env t, + string "*"]) | TDatatype (Default, n, _) => (box [string "struct", space, |