diff options
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) |