diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-11-23 07:39:39 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-11-23 07:39:39 +0000 |
| commit | e19de55919ca44fee8d8ccede5f1caf21064913d (patch) | |
| tree | 0c115b71464b785a189f07880046c715843a6b7f /parsing | |
| parent | 2f69234e4cf2a1484aa43dd4d033957abb9078d5 (diff) | |
Fixed bug #2006 (type constraint on Record was not taken into account) +
slight improving of the printing of record.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11619 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/prettyp.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 8dc220f65..3163cfb71 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -349,10 +349,10 @@ let pr_record (sp,tyi) = str ": " ++ pr_lconstr_env envpar arity ++ brk(1,2) ++ str ":= " ++ pr_id cstrnames.(0)) ++ brk(1,2) ++ - hv 2 (str "{ " ++ - prlist_with_sep (fun () -> str "; " ++ brk(1,0)) + hv 2 (str "{" ++ + prlist_with_sep (fun () -> str ";" ++ brk(1,0)) (fun (id,b,c) -> - pr_id id ++ str (if b then " : " else " := ") ++ + str " " ++ pr_id id ++ str (if b then " : " else " := ") ++ pr_lconstr_env envpar c) fields) ++ str" }") let gallina_print_inductive sp = |