rectified some typo in string-related built-ins

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.cpp b/eval.cpp
index 2deb38c..2f5921d 100644
--- a/eval.cpp
+++ b/eval.cpp
@@ -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);