diff options
| author | Chimrod <> | 2023-12-07 18:47:13 +0100 |
|---|---|---|
| committer | Chimrod <> | 2023-12-07 18:47:13 +0100 |
| commit | cb5dba7e1ad74f81294b8f48b84cab7683059afa (patch) | |
| tree | 420e3433c12495c33210b5a3647e2f702479a00f /lib/syntax | |
| parent | 07cb010ccd29a586c992ab76c81934979ba1a755 (diff) | |
QSPVER was incorrectly considered as a function and not a keyword
Diffstat (limited to 'lib/syntax')
| -rw-r--r-- | lib/syntax/get_type.ml | 2 | ||||
| -rw-r--r-- | lib/syntax/t.ml | 2 | ||||
| -rw-r--r-- | lib/syntax/type_of.ml | 2 |
3 files changed, 2 insertions, 4 deletions
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) |