diff options
Diffstat (limited to 'liblali.c')
| -rw-r--r-- | liblali.c | 23 |
1 files changed, 8 insertions, 15 deletions
@@ -1084,17 +1084,10 @@ DEFINE_PRIMITIVE_ARITHMETIC(primitiveRemainder, %, "+1", atoi, int, "%d", " /* DEFINE_PRIMITIVE_RELATIONAL(primitiveDifferent, !=, false) */ /* DEFINE_PRIMITIVE_RELATIONAL(primitiveEqual, ==, true) */ -DEFINE_PRIMITIVE_RELATIONAL(primitiveLess, <, true) -/* DEFINE_PRIMITIVE_RELATIONAL(primitiveLessEqual, <=, true) */ -DEFINE_PRIMITIVE_RELATIONAL(primitiveGreater, >, true) -/* DEFINE_PRIMITIVE_RELATIONAL(primitiveGreaterEqual, >=, true) */ - -bool hasADot(char *string) { - for (int i = 0; string[i] != '\0'; i++) - if (string[i] == '.') - return true; - return false; -} +/* DEFINE_PRIMITIVE_RELATIONAL(primitiveLess, <, true) */ +DEFINE_PRIMITIVE_RELATIONAL(primitiveLessEqual, <=, true) +/* DEFINE_PRIMITIVE_RELATIONAL(primitiveGreater, >, true) */ +DEFINE_PRIMITIVE_RELATIONAL(primitiveGreaterEqual, >=, true) Object *say(Object *object, GC_PARAM) { if ((object)->type != TYPE_SYMBOL && @@ -1338,10 +1331,10 @@ Primitive primitives[] = { { "%", 1, -1, primitiveRemainder }, /* { "=", 1, -1, primitiveEqual }, */ /* { "!", 1, -1, primitiveDifferent }, */ - { "<", 1, -1, primitiveLess }, - /* { "<=", 1, -1, primitiveLessEqual }, */ - { ">", 1, -1, primitiveGreater }, - /* { ">=", 1, -1, primitiveGreaterEqual } */ + /* { "<", 1, -1, primitiveLess }, */ + { "<=", 1, -1, primitiveLessEqual }, + /* { ">", 1, -1, primitiveGreater }, */ + { ">=", 1, -1, primitiveGreaterEqual }, { "join", 1, 1, primitiveJoin }, { "split", 1, 1, primitiveSplit }, }; |