From 972b896e2b750ad6434e74f267b62e1137375242 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 25 May 2020 18:57:55 -0400
Subject: [PATCH] Add placeholder

---
 scheme/base.sld | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 73abc406..6b0909c2 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -606,7 +606,13 @@
     (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)
+;    ; TODO: generalize to multiple arguments: (define (string<? str1 str2 . strs)
+;    (define (string=?-2 str1 str2)  (equal? (string-cmp str1 str2) 0))
+;    (define (string<?-2 str1 str2)  (<  (string-cmp str1 str2) 0))
+;    (define (string<=?-2 str1 str2) (<= (string-cmp str1 str2) 0))
+;    (define (string>?-2 str1 str2)  (>  (string-cmp str1 str2) 0))
+;    (define (string>=?-2 str1 str2) (>= (string-cmp str1 str2) 0))
+
 
     (define (member-helper obj lst cmp-proc)
      (cond