diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index a3c40b0b..bea484da 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -534,12 +534,15 @@
                                          (number->string len) ");")))))
         (loop 0 code))))))
 
+TODO: c-compile-string exp use-alloca
+consolidate from below and alloc_string
+
 ;; c-compile-const : const-exp -> c-pair
 ;;
 ;; Typically this function is used to compile constant values such as
 ;; a single number, boolean, etc. However, it can be passed a quoted
 ;; item such as a list, to compile as a literal.
-(define (c-compile-const exp)
+(define (c-compile-const exp use-alloca)
   (cond
     ((null? exp)
      (c-code "NULL"))