camlp4 and private rows ?

camlp4 and private rows ?

[Pietro Abate]

Hi all,
I've this snippet of code:

----------
type st = [ `A ]

module Make(T: sig type t end with type t = private [> st ] )
= struct
  let test = 1
end
-----------

it compiles fine with ocamlc , but it fails with camlp4 ...

ocamlfind ocamlc -c -pp "camlp4o -I . pa_extend.cmo q_MLast.cmo " -I /usr/lib/ocaml/3.09.2/camlp4 pr.ml
File "pr.ml", line 4, characters 44-51:
Parse error: [type] expected after '=' (in [with_constr])
Uncaught exception: Stream.Error("[type] expected after '=' (in [with_constr])")
Preprocessor error

Did I miss something ?

thanks,
p


-- 
++ Blog: http://blog.rsise.anu.edu.au/?q=pietro
++ 
++ "All great truths begin as blasphemies." -George Bernard Shaw
++ Please avoid sending me Word or PowerPoint attachments.
   See http://www.fsf.org/philosophy/no-word-attachments.html