Commits

j...@vmware  committed 3edfc37

fixed include structure storage order

  • Participants
  • Parent commits b720240
  • Branches default

Comments (0)

Files changed (2)

File ocamlspot/ocamlspot.ml

 	      | Parameter _id -> Ztree.empty ()
 	      | Error _ -> Ztree.empty ()
 	    in
-            str ^@ str', flat ^@ str' ^@ flat'
+            str' ^@ str, str' ^@ flat' ^@ flat
         | _, None -> assert false) (Ztree.empty (),Ztree.empty ()) sitems
 
   end

File ocamlspot/tests/test.ml

   include Z1
 end
 
-let _ = Z2.zx
+let _ = Z2.zx (* fixed bug : did not point to zx in Z1 *)
 let _ = Z2.zy
 
+module Z3 = struct
+  include Z1
+  let zx = 2
+end
+
+let _ = Z3.zx
+
 let _ = Printf.sprintf
 
 module PR = Printf