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