From 5bb83cbfc6f98756c182a3f5a39c2b7e41653911 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 3 Jun 2020 19:08:23 -0400
Subject: [PATCH] Added stub

---
 scheme/base.sld | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index fffe4d71..acead90f 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -607,6 +607,7 @@
 
 
 ;    ; TODO: generalize to multiple arguments: (define (string<? str1 str2 . strs)
+    ;(define (string=? str1 str2 . strs)  (Cyc-bin-op fast-string=? str1 (cons 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))