OCaml extraction continued

TODO

@@ -75,6 +75,9 @@ WhyML
     require tedious checks pretty much everywhere in the code,
     and they cannot be translated to OCaml.
 
+  - accept match e1 with pat -> e2 end as non-ghost when e1 is ghost
+    and e2 is not ghost
+
 syntax
 ------
 

drivers/ocaml.drv

@@ -70,8 +70,8 @@ end
 module ref.Ref
   syntax type     ref      "(%1 Pervasives.ref)"
   syntax function contents "(%1).Pervasives.contents"
-  syntax val      ref      "(Pervasives.ref %1)"
-  syntax val      (!)      "(%1).Pervasives.contents"
-  syntax val      (:=)     "((%1) := (%2))"
+  syntax val      ref      "Pervasives.ref"
+  syntax val      (!_)     "Pervasives.(!)"
+  syntax val      (:=)     "Pervasives.(:=)"
 end