Skip to content

Commit 9f55ade

Browse files
authored
flambda-backend: Missing changes around the renaming to "Jane syntax" (#1400)
1 parent cf8eaa8 commit 9f55ade

File tree

1 file changed

+7
-8
lines changed

1 file changed

+7
-8
lines changed

parsing/jane_syntax.ml

Lines changed: 7 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -152,24 +152,23 @@ module Comprehensions = struct
152152
module Desugaring_error = struct
153153
type error =
154154
| Non_comprehension_embedding of Embedded_name.t
155-
| Non_extension
155+
| Non_embedding
156156
| Bad_comprehension_embedding of string list
157157
| No_clauses
158158

159159
let report_error ~loc = function
160-
| Non_comprehension_embedding ext_name ->
160+
| Non_comprehension_embedding name ->
161161
Location.errorf ~loc
162162
"Tried to desugar the non-comprehension embedded term %a@ \
163163
as part of a comprehension expression"
164-
Embedded_name.pp_quoted_name ext_name
165-
| Non_extension ->
164+
Embedded_name.pp_quoted_name name
165+
| Non_embedding ->
166166
Location.errorf ~loc
167167
"Tried to desugar a non-embedded expression@ \
168168
as part of a comprehension expression"
169169
| Bad_comprehension_embedding subparts ->
170170
Location.errorf ~loc
171-
"Unknown, unexpected, or malformed@ \
172-
comprehension embedded term %a"
171+
"Unknown, unexpected, or malformed@ comprehension embedded term %a"
173172
Embedded_name.pp_quoted_name
174173
Embedded_name.(extension_string :: subparts)
175174
| No_clauses ->
@@ -195,7 +194,7 @@ module Comprehensions = struct
195194
| Some (ext_name, _) ->
196195
Desugaring_error.raise expr (Non_comprehension_embedding ext_name)
197196
| None ->
198-
Desugaring_error.raise expr Non_extension
197+
Desugaring_error.raise expr Non_embedding
199198

200199
let iterator_of_expr expr =
201200
match expand_comprehension_extension_expr expr with
@@ -339,7 +338,7 @@ module Strengthen = struct
339338
end
340339

341340
(******************************************************************************)
342-
(** The interface to language extensions, which we export *)
341+
(** The interface to our novel syntax, which we export *)
343342

344343
module type AST = sig
345344
type t

0 commit comments

Comments
 (0)