Add 21 primitives to Faustine.

[Faustine.git] / interpretor / lexer.mll

diff --git a/interpretor/lexer.mll b/interpretor/lexer.mll
index 4f2f525..9659a41 100644 (file)
--- a/interpretor/lexer.mll
+++ b/interpretor/lexer.mll
@@ -33,7 +33,7 @@ rule token = parse
 | "exp"                                        { IDENT Exp}
 | "sqrt"                                { IDENT Sqrt}
 | "log"                                        { IDENT Ln}
 | "exp"                                        { IDENT Exp}
 | "sqrt"                                { IDENT Sqrt}
 | "log"                                        { IDENT Ln}

-| "logten"                             { IDENT Log10}
+| "logten"                             { IDENT Lg}

 | "pow"                                        { IDENT Power}
 | "abs"                                        { IDENT Abs}
 | "fmod"                               { IDENT Fmod}
 | "pow"                                        { IDENT Power}
 | "abs"                                        { IDENT Abs}
 | "fmod"                               { IDENT Fmod}


@@ -43,12 +43,12 @@ rule token = parse
 | "#"                                   { IDENT Vconcat}
 | "[]"                                  { IDENT Vpick }
 | "serialize"                           { IDENT Serialize}
 | "#"                                   { IDENT Vconcat}
 | "[]"                                  { IDENT Vpick }
 | "serialize"                           { IDENT Serialize}

-| '>'                                   { IDENT Greater}
-| '<'                                   { IDENT Less}
-| ">="                                 { IDENT Gore}
-| "<="                                 { IDENT Lore}
-| "=="                                 { IDENT Equal}
-| "!="                                 { IDENT Different}
+| '>'                                   { IDENT Gt}
+| '<'                                   { IDENT Lt}
+| ">="                                 { IDENT Geq}
+| "<="                                 { IDENT Leq}
+| "=="                                 { IDENT Eq}
+| "!="                                 { IDENT Neq}

 | "max"                                        { IDENT Max}
 | "min"                                        { IDENT Min}
 | "prefix"                              { IDENT Prefix}
 | "max"                                        { IDENT Max}
 | "min"                                        { IDENT Min}
 | "prefix"                              { IDENT Prefix}