From cb5dba7e1ad74f81294b8f48b84cab7683059afa Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Thu, 7 Dec 2023 18:47:13 +0100
Subject: QSPVER was incorrectly considered as a function and not a keyword

---
 lib/syntax/get_type.ml | 2 +-
 lib/syntax/t.ml        | 2 --
 lib/syntax/type_of.ml  | 2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)

(limited to 'lib/syntax')

diff --git a/lib/syntax/get_type.ml b/lib/syntax/get_type.ml
index 2bd12bb..a9ec48d 100644
--- a/lib/syntax/get_type.ml
+++ b/lib/syntax/get_type.ml
@@ -83,7 +83,7 @@ let function_ : S.pos -> T.function_ -> t list -> t =
   | Replace -> Variable String
   | Replace' -> Variable String
   | Rgb -> Raw Integer
-  | Qspver | Qspver' | Rnd -> Raw Integer
+  | Rnd -> Raw Integer
   | Selact -> Variable String
   | Stattxt -> Variable String
   | Stattxt' -> Variable String
diff --git a/lib/syntax/t.ml b/lib/syntax/t.ml
index c50d2e2..697b18e 100644
--- a/lib/syntax/t.ml
+++ b/lib/syntax/t.ml
@@ -64,8 +64,6 @@ type function_ =
   | Min
   | Min'
   | Msecscount
-  | Qspver
-  | Qspver'
   | Rand
   | Replace
   | Replace'
diff --git a/lib/syntax/type_of.ml b/lib/syntax/type_of.ml
index d132162..b2776fc 100644
--- a/lib/syntax/type_of.ml
+++ b/lib/syntax/type_of.ml
@@ -268,7 +268,7 @@ module TypedExpression = struct
     | Replace -> (default, report)
     | Replace' -> (default, report)
     | Rgb -> (default, report)
-    | Qspver | Qspver' | Rnd ->
+    | Rnd ->
         (* No arg *)
         let report = Helper.compare_args pos [] types report in
         (default, report)
-- 
cgit v1.2.3