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

---
 scheme/cyclone/transforms.sld | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 507da361..2f76a7dc 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1133,6 +1133,16 @@ if (acc) {
            (cons 'write-string-1 (map (lambda (a) (convert a renamed)) (cdr ast))))
           ((and (eq? (car ast) 'write-string) (= (length ast) 3))
            (cons 'write-string-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
+          ;((and (eq? (car ast) 'string>=?) (= (length ast) 3))
+          ; (cons 'string>=?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
+          ;((and (eq? (car ast) 'string>?) (= (length ast) 3))
+          ; (cons 'string>?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
+          ;((and (eq? (car ast) 'string<=?) (= (length ast) 3))
+          ; (cons 'string<=?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
+          ;((and (eq? (car ast) 'string<?) (= (length ast) 3))
+          ; (cons 'string<?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
+          ;((and (eq? (car ast) 'string=?) (= (length ast) 3))
+          ; (cons 'string=?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
           ;; Regular case, alpha convert everything
           (else
            (regular-case)))))