diff options
| -rw-r--r-- | parsing/termast.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/termast.ml b/parsing/termast.ml index 7b7ad5848c..18ef4b3ac2 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -219,7 +219,7 @@ let rec ast_of_raw = function ope(tag,pred::asttomatch::asteqns) | ROldCase (_,isrec,typopt,tm,bv) -> - warning "Old Case syntax"; + (* warning "Old Case syntax"; *) ope("CASE",(ast_of_rawopt typopt) ::(ast_of_raw tm) ::(Array.to_list (Array.map ast_of_raw bv))) |