From c0dc100968d2eea21458fc8c1507f516724ca154 Mon Sep 17 00:00:00 2001 From: Louis Date: Tue, 3 Sep 2024 22:17:33 +0800 Subject: [PATCH] context free: typo --- examples/2 - Writing PPXs/a - Context Free/README.md | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/examples/2 - Writing PPXs/a - Context Free/README.md b/examples/2 - Writing PPXs/a - Context Free/README.md index 20e315a..0fa10ad 100644 --- a/examples/2 - Writing PPXs/a - Context Free/README.md +++ b/examples/2 - Writing PPXs/a - Context Free/README.md @@ -261,16 +261,14 @@ let from_string = function ptype_kind = Ptype_variant variants; _; }; - ] ) - - -> (* ... *) + ] ) -> (* ... *) | _ -> (* ... *) ``` - **Create functions to generate the patterns:** All we are going to do here is what we covered in [Building AST](../../1%20-%20AST/a%20-%20Building%20AST/README.md). So it shouldn't be a problem to understand this part. - - Creating the `to_string` function: + - **Creating the `to_string` function:** ```ocaml let function_name suffix = type_name ^ suffix in