From 5a18a66763bcc19de117cb83293d7bd25a0ea10c Mon Sep 17 00:00:00 2001 From: Chimrod <> Date: Tue, 3 Oct 2023 18:19:15 +0200 Subject: Switched the keyword from string to a sum type --- lib/syntax/tree.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/syntax/tree.ml') diff --git a/lib/syntax/tree.ml b/lib/syntax/tree.ml index bb31253..ecad1b4 100644 --- a/lib/syntax/tree.ml +++ b/lib/syntax/tree.ml @@ -28,7 +28,7 @@ module Ast = struct | Declaration of ('a * 'a variable * T.assignation_operator * 'a expression) | Expression of 'a expression | Comment of 'a - | Call of 'a * string * 'a expression list + | Call of 'a * T.keywords * 'a expression list | Location of 'a * string [@@deriving eq, show] end @@ -64,7 +64,7 @@ module Instruction : type expression = Expression.repr type variable = Expression.variable - let call : pos -> string -> expression list -> repr = + let call : pos -> T.keywords -> expression list -> repr = fun pos name args -> Ast.Call (pos, name, args) let location : pos -> string -> repr = -- cgit v1.2.3