Skip to content
This repository
Browse code

Fix build with OCaml 3.12.0

The quotation <:ctyp< $a$ $b$ >> doesn't work any more with OCaml
3.12.0+beta1; we manually expand it.

Bug-OCaml: http://caml.inria.fr/mantis/view.php?id=5080
Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=586493
Signed-off-by: Stephane Glondu <steph@glondu.net>
  • Loading branch information...
commit dbe3064315d723c0838856ba13527ca6bbaf57e7 1 parent 87c5ca7
Stéphane Glondu authored June 19, 2010 thelema committed July 15, 2010

Showing 1 changed file with 1 addition and 1 deletion. Show diff stats Hide diff stats

  1. 2  src/syntax/pa_strings/pa_format.ml
2  src/syntax/pa_strings/pa_format.ml
@@ -246,7 +246,7 @@ struct
246 246
         <:expr< fun paren out x -> BatIO.nwrite out "<abstract>" >>
247 247
     | <:ctyp@_loc< $id:id$ >> ->
248 248
         <:expr< $id:map_id id$ >>
249  
-    | <:ctyp@_loc< $a$ $b$ >> ->
  249
+    | Ast.TyApp (_loc, b, a) ->
250 250
         <:expr< $vprinter_of_ctyp b$ $vprinter_of_ctyp a$ >>
251 251
     | <:ctyp@_loc< $tup:t$ >> ->
252 252
         let l = Ast.list_of_ctyp t [] in

0 notes on commit dbe3064

Please sign in to comment.
Something went wrong with that request. Please try again.