Commits

camlspotter  committed 8a41d7a

fixing bugs

  • Participants
  • Parent commits 2bc26de
  • Branches 4.01.0.2.2.0

Comments (0)

Files changed (3)

   and type_declaration id td = match td.typ_kind with
     | Ttype_abstract -> AStr_type (id, [])
     | Ttype_variant lst -> 
-        AStr_type (id, List.map (fun (id, {loc=_loc}, _, _) -> AStr_constructor id) lst)
+        AStr_type (id, List.map (fun (id, {loc}, ctys, _loc) ->
+          List.iter core_type ctys;
+          with_record_def loc & AStr_constructor id) lst)
     | Ttype_record lst -> 
-        AStr_type (id, List.map (fun (id, {loc=_loc}, _, _, _) -> AStr_field id) lst)
+        AStr_type (id, List.map (fun (id, {loc}, _mutable_flag, cty, _loc) -> 
+          core_type cty;
+          with_record_def loc & AStr_field id) lst)
 
   and pat_expr_list xs = xs |> List.iter (fun (pat, expr) -> 
     ignore & pattern pat;

File tests/Makefile.targets

 functor_expansion.cmo \
 functor_parameter.cmo \
 immediate_include.cmo \
-inc1.cmo \
-inc2.cmo \
 include.cmo \
 include_exception.cmo \
 include_functor_app.cmo \
 target.cmo \
 target_e.cmo \
 test.cmo \
-test1.cmo \
 test10.cmo \
 test11.cmo \
 test12.cmo \

File tests/test1.ml

-