diff options
| -rw-r--r-- | builtin.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/builtin.cpp b/builtin.cpp index 7a4a78a..f1e4c19 100644 --- a/builtin.cpp +++ b/builtin.cpp @@ -1406,7 +1406,7 @@ BUILTIN_PROC_DEF(string_gt) { EvalObj *obj2 = TO_PAIR(args->cdr)->car; if (!obj1->is_str_obj() || !obj2->is_str_obj()) throw TokenError("a string", RUN_ERR_WRONG_TYPE); - return new BoolObj(static_cast<StrObj*>(obj1)->lt(static_cast<StrObj*>(obj2))); + return new BoolObj(static_cast<StrObj*>(obj1)->gt(static_cast<StrObj*>(obj2))); } BUILTIN_PROC_DEF(string_ge) { @@ -1415,7 +1415,7 @@ BUILTIN_PROC_DEF(string_ge) { EvalObj *obj2 = TO_PAIR(args->cdr)->car; if (!obj1->is_str_obj() || !obj2->is_str_obj()) throw TokenError("a string", RUN_ERR_WRONG_TYPE); - return new BoolObj(static_cast<StrObj*>(obj1)->le(static_cast<StrObj*>(obj2))); + return new BoolObj(static_cast<StrObj*>(obj1)->ge(static_cast<StrObj*>(obj2))); } BUILTIN_PROC_DEF(string_eq) { |