Prevent "too many arguments" errors

Use folds instead of apply to prevent errors with too many arguments passed.

scheme/cyclone/cgen.sld

@@ -222,25 +222,26 @@
 (define (c:num-args c-tuple) (caddr c-tuple))
 
 (define (c:allocs->str c-allocs . prefix)
-  (apply
+  (foldr
-    string-append
+    (lambda (x y)
-    (map
+      (string-append
-        (lambda (c)
+        (string-append
-           (string-append 
             (if (null? prefix)
                 ""
                 (car prefix))
-            c 
+            x 
-            "\n"))
+            "\n")
-        c-allocs)))
+        y))
+    ""
+    c-allocs))
 
 (define (c:allocs->str2 c-allocs prefix suffix)
-  (apply
+  (foldr
-    string-append
+    (lambda (x y)
-    (map
+      (string-append
-        (lambda (c)
+        (string-append prefix x suffix)))
-           (string-append prefix c suffix))
+    ""
-        c-allocs)))
+    c-allocs))
 
 (define (c:append cp1 cp2)
   (c-code/vars 
@@ -1280,7 +1281,7 @@
 
     ;; Get top-level string
     (set! compiled-program
-      (apply string-append (reverse compiled-program-lst)))
+      (foldr string-append "" (reverse compiled-program-lst)))
 
     (emit-c-arity-macros 0)
     (emit "#include \"cyclone/types.h\"")