From a1dd27a42d29b4076ef6d47e9cf89a765e8ca257 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 25 May 2015 22:45:17 -0400
Subject: [PATCH] TODO for string<?

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

diff --git a/TODO b/TODO
index ec29b17f..30bb71c1 100644
--- a/TODO
+++ b/TODO
@@ -13,7 +13,7 @@ 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<? symbol<? - and related functions, too
+   - string<? - and related functions, too
    - (system) - not standard, but need to run gcc. See cyclone.scm for use
    - vectors - limited use in cgen module - make-vector, vector-set!, and vector-ref
 
diff --git a/scheme/base.sld b/scheme/base.sld
index afb9d45d..e414e8e6 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -65,7 +65,9 @@
     (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)))
     (define (char>=? c1 c2 . cs) (Cyc-bin-op-char >= c1 (cons c2 cs)))
-    ; TODO: char-ci predicates
+    ; TODO: char-ci predicates (in scheme/char library)
+    ; TODO: (define (string<? str1 str2 . strs)
+
     (define (foldl func accum lst)
       (if (null? lst)
         accum