/[svn]/ocamliface/mltypes.ml
ViewVC logotype

Diff of /ocamliface/mltypes.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1167 by abate, Tue Jul 10 18:27:51 2007 UTC revision 1168 by abate, Tue Jul 10 18:27:55 2007 UTC
# Line 114  Line 114 
114                      | _ -> assert false)                      | _ -> assert false)
115                 rd.row_fields in                 rd.row_fields in
116             PVariant fields             PVariant fields
117         | Tvar ->         | Tvar -> Var (get_var ty.id)
            Var (get_var ty.id)  
 (*         failwith "Polymorphic value"*)  
118         | Tconstr (p,args,_) ->         | Tconstr (p,args,_) ->
119             let args = List.map loop args in             let args = List.map loop args in
120             let pn = Path.name p in             let pn = Path.name p in
Legend:
Removed from v.1167  
changed lines
  Added in v.1168
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5