diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/qparser/idents.ml | 4 | ||||
| -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 |
4 files changed, 4 insertions, 6 deletions
diff --git a/lib/qparser/idents.ml b/lib/qparser/idents.ml index 02fbac2..06bf32a 100644 --- a/lib/qparser/idents.ml +++ b/lib/qparser/idents.ml @@ -131,8 +131,8 @@ let _ = ("PL", KEYWORD T.Pl); ("*PL", KEYWORD T.Pl'); ("PLAY", KEYWORD T.Play); - ("QSPVER", FUNCTION T.Qspver); - ("$QSPVER", FUNCTION T.Qspver'); + ("$QSPVER", IDENT "$QSPVER"); + ("QSPVER", IDENT "$QSPVER"); ("RAND", FUNCTION T.Rand); ("REFINT", KEYWORD T.RefInt); ("REPLACE", FUNCTION T.Replace); 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) |