diff options
| author | Hugo Herbelin | 2017-02-02 11:19:07 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2017-02-02 11:19:36 +0100 |
| commit | dec77f282575842ff5369e732c0acfaf99d75037 (patch) | |
| tree | a7ab489fd0f74f0d70e1bc2f6c66a9b06f95d63b | |
| parent | 568b38e1d599f8bac5adf140f5a114f2871bc436 (diff) | |
Fixing an anomaly with 'pat after cofix.
| -rw-r--r-- | interp/constrintern.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index e6340646f5..c916fcd886 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1602,7 +1602,8 @@ let internalize globalenv env allow_patvar (_, ntnvars as lvar) c = let idl_tmp = Array.map (fun ((loc,id),bl,ty,_) -> let (env',rbl) = List.fold_left intern_local_binder (env,[]) bl in - let rbl = List.map (function BDRawDef a -> a | BDPattern _ -> assert false) rbl in + let rbl = List.map (function BDRawDef a -> a | BDPattern _ -> + Loc.raise loc (Stream.Error "pattern with quote not allowed after cofix")) rbl in (List.rev rbl, intern_type env' ty,env')) dl in let idl = Array.map2 (fun (_,_,_,bd) (b,c,env') -> |