From f5bc6b0811ad40539bbadf94fe17ba0343f73336 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 26 May 2015 21:37:09 -0400
Subject: [PATCH] =?UTF-8?q?Added=20(string=3D=3F)=20family=20of=20function?=
 =?UTF-8?q?s?=

---
 TODO            |  1 -
 scheme/base.sld | 14 +++++++++++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/TODO b/TODO
index 118566fb..2d3f7244 100644
--- a/TODO
+++ b/TODO
@@ -13,7 +13,6 @@ Working TODO list:
 
    - need to change current*port functions to actually have a current port, and other i/o operations to use the correct current port
    - quasiquote - will need to enhance the parser to support a second type of quote, at minimum
-   - string<? - and related functions, too
    - vectors - limited use in cgen module - make-vector, vector-set!, and vector-ref
 
  - Reduction in size of generated code
diff --git a/scheme/base.sld b/scheme/base.sld
index e414e8e6..f0c60fbf 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -13,6 +13,11 @@
     char>?
     char<=?
     char>=?
+    string=?
+    string<?
+    string<=?
+    string>?
+    string>=?
     foldl
     foldr
     not
@@ -66,7 +71,14 @@
     (define (char<=? c1 c2 . cs) (Cyc-bin-op-char <= c1 (cons c2 cs)))
     (define (char>=? c1 c2 . cs) (Cyc-bin-op-char >= c1 (cons c2 cs)))
     ; TODO: char-ci predicates (in scheme/char library)
-    ; TODO: (define (string<? str1 str2 . strs)
+
+
+    (define (string=? str1 str2)  (equal? (string-cmp str1 str2) 0))
+    (define (string<? str1 str2)  (<  (string-cmp str1 str2) 0))
+    (define (string<=? str1 str2) (<= (string-cmp str1 str2) 0))
+    (define (string>? str1 str2)  (>  (string-cmp str1 str2) 0))
+    (define (string>=? str1 str2) (>= (string-cmp str1 str2) 0))
+    ; TODO: generalize to multiple arguments: (define (string<? str1 str2 . strs)
 
     (define (foldl func accum lst)
       (if (null? lst)