diff options
| -rw-r--r-- | builtin.cpp | 4 | ||||
| -rw-r--r-- | eval.cpp | 2 |
2 files changed, 3 insertions, 3 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) { @@ -80,7 +80,7 @@ void Evaluator::add_builtin_routines() { ADD_BUILTIN_PROC("string<?", string_lt); ADD_BUILTIN_PROC("string<=?", string_le); ADD_BUILTIN_PROC("string>?", string_gt); - ADD_BUILTIN_PROC("string<=?", string_ge); + ADD_BUILTIN_PROC("string>=?", string_ge); ADD_BUILTIN_PROC("string=?", string_eq); ADD_BUILTIN_PROC("make-vector", make_vector); |