Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Fix pa_module_conv, broken by ocaml-3.12.0

  • Loading branch information...
commit 951b59b11f20b9f2d287149130b908c62b71cc1e 1 parent e99b64e
authored December 20, 2010

Showing 1 changed file with 3 additions and 3 deletions. Show diff stats Hide diff stats

  1. 6  lib/pa_module_conv.ml
6  lib/pa_module_conv.ml
@@ -48,10 +48,10 @@ let gen_derived_defs _loc tp drvs =
48 48
 let rec fetch_generator_arg paren_count strm =
49 49
 	match Stream.next strm with
50 50
 	| KEYWORD "(", _ -> fetch_generator_arg (paren_count + 1) strm
51  
-	| KEYWORD ")", loc ->
52  
-		if paren_count = 1 then [(EOI, loc)]
  51
+	| KEYWORD ")", token_info ->
  52
+		if paren_count = 1 then [(EOI, token_info)]
53 53
 		else fetch_generator_arg (paren_count - 1) strm
54  
-	| EOI, loc -> Loc.raise loc (Stream.Error "')' missing")
  54
+	| EOI, token_info -> Loc.raise (Gram.token_location token_info) (Stream.Error "')' missing")
55 55
 	| x -> x :: fetch_generator_arg paren_count strm
56 56
 
57 57
 let generator_arg =

0 notes on commit 951b59b

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