From 72eaa044b6724616e12fe858f56a8198b2fae8c4 Mon Sep 17 00:00:00 2001 From: Anton Lorenzen Date: Fri, 4 Oct 2024 16:21:41 -0400 Subject: [PATCH] Remove nested quotes --- ocaml/testsuite/tests/typing-unique/overwriting_underscore.ml | 2 +- ocaml/typing/typecore.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ocaml/testsuite/tests/typing-unique/overwriting_underscore.ml b/ocaml/testsuite/tests/typing-unique/overwriting_underscore.ml index b0a9acd8910..8100d9e6201 100644 --- a/ocaml/testsuite/tests/typing-unique/overwriting_underscore.ml +++ b/ocaml/testsuite/tests/typing-unique/overwriting_underscore.ml @@ -11,7 +11,7 @@ let underscore () = _ Line 1, characters 20-21: 1 | let underscore () = _ ^ -Error: Syntax error: "wildcard "_"" not expected. +Error: Syntax error: "wildcard _" not expected. |}] let overwriting t = overwrite_ t with (a, b) diff --git a/ocaml/typing/typecore.ml b/ocaml/typing/typecore.ml index a9521de84f8..83f1c3dd616 100644 --- a/ocaml/typing/typecore.ml +++ b/ocaml/typing/typecore.ml @@ -6534,7 +6534,7 @@ and type_expect_ else Location.todo_overwrite_not_implemented loc | Pexp_hole -> if not (Language_extension.is_enabled Overwriting) then - raise Syntaxerr.(Error(Not_expecting(loc, "wildcard \"_\""))) + raise Syntaxerr.(Error(Not_expecting(loc, "wildcard _"))) else Location.todo_overwrite_not_implemented loc and expression_constraint pexp =