From e8c5a3415ade5ecf84848c583b46b434afc5e9d9 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 20 Mar 2017 18:56:52 -0400
Subject: [PATCH] Comment-out WIP code

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

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 703afda5..55e36909 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1185,22 +1185,22 @@
                  (difference fv (built-in-syms)))
                (list))))))
 
-TODO: upgrade applicable function calls to inlinable primitives
-first case is char=? => Cyc-fast-char-eq (and rest of the family)
-(define (inline-applicable-funcs expr)
-  (define (conv ast)
-    (cond
-      ((define? ast)
-       `(define ,@(map (lambda (a) (conv a)) (cdr ast))))
-      ((set!? ast)
-       `(set! ,@(map (lambda (a) (conv a)) (cdr ast))))
-      ((if? ast)
-        TODO
-      ((lambda? ast)
-      ((app? ast)
-      (else
-        ast)))
-  (conv expr))
+;TODO: upgrade applicable function calls to inlinable primitives
+;first case is char=? => Cyc-fast-char-eq (and rest of the family)
+;(define (inline-applicable-funcs expr)
+;  (define (conv ast)
+;    (cond
+;      ((define? ast)
+;       `(define ,@(map (lambda (a) (conv a)) (cdr ast))))
+;      ((set!? ast)
+;       `(set! ,@(map (lambda (a) (conv a)) (cdr ast))))
+;      ((if? ast)
+;        TODO
+;      ((lambda? ast)
+;      ((app? ast)
+;      (else
+;        ast)))
+;  (conv expr))
 
 ;;
 ;; Helpers to syntax check primitive calls