diff options
| author | Chimrod <> | 2023-10-03 18:19:15 +0200 |
|---|---|---|
| committer | Chimrod <> | 2023-10-15 19:04:36 +0200 |
| commit | 5a18a66763bcc19de117cb83293d7bd25a0ea10c (patch) | |
| tree | 1627ae50da1a87e5952b5fab21b7290b0555041e /lib/syntax/t.ml | |
| parent | 49f69c1ab4d3d8716f30d7bd36a66a4241e16d33 (diff) | |
Switched the keyword from string to a sum type
Diffstat (limited to 'lib/syntax/t.ml')
| -rw-r--r-- | lib/syntax/t.ml | 20 |
1 files changed, 6 insertions, 14 deletions
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] |