diff options
Diffstat (limited to 'builtin.cpp')
| -rw-r--r-- | builtin.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/builtin.cpp b/builtin.cpp index 760aa2a..8d3e21d 100644 --- a/builtin.cpp +++ b/builtin.cpp @@ -1248,7 +1248,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) { @@ -1257,7 +1257,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) { |