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/t.ml | 20 ++++++--------------
 1 file changed, 6 insertions(+), 14 deletions(-)

(limited to 'lib/syntax/t.ml')

diff --git a/lib/syntax/t.ml b/lib/syntax/t.ml
index e9a901d..bf31253 100644
--- a/lib/syntax/t.ml
+++ b/lib/syntax/t.ml
@@ -78,7 +78,7 @@ type function_ =
 [@@deriving eq, show]
 
 type keywords =
-  | Inclib
+  | IncLib
   | Addobj
   | Cla
   | Clear
@@ -88,10 +88,6 @@ type keywords =
   | Cls
   | CmdClear
   | CopyArr
-  | CurActs
-  | CurActs'
-  | CurLoc
-  | CurLoc'
   | DelAct
   | FreeLib
   | DelObj
@@ -100,7 +96,6 @@ type keywords =
   | Exit
   | Gosub
   | Goto
-  | IncLib
   | Jump
   | KillAll
   | KillObj
@@ -113,23 +108,20 @@ type keywords =
   | Nl'
   | P
   | P'
+  | Pl
+  | Pl'
   | Play
-  | Play'
+  | OpenGame
+  | OpenQst
   | RefInt
   | SaveGame
-  | SelAct'
-  | SelObj
-  | SelObj'
   | SetTimer
   | ShowActs
   | ShowInput
   | ShowObjs
   | ShowStat
   | Unselect
-  | UseHTML
-  | UserCom'
-  | UserText
-  | UserText'
   | View
   | Wait
   | XGoto
+[@@deriving eq, show]
-- 
cgit v1.2.3