Issue #449 - Selectively disable optimizations

Memoize optimizations are not compatible with top-level define-c forms, so for now we disable these optimizations in this situation.

scheme/cyclone/cps-opt-memoize-pure-fncs.scm

@@ -168,6 +168,20 @@
       (map scan exp))
      (else exp)
   ))
+
+  ;; Does given sexp contain any top-level define-c expressions?
+  (define (has-define-c? sexp)
+    (call/cc 
+      (lambda (k) 
+        (for-each 
+          (lambda (exp) 
+            (if (define-c? exp) 
+                (k #t))) 
+          sexp)
+        (k #f))))
+
+  (if (has-define-c? sexp)
+      sexp ;; Can't optimize with define-c (yet), so bail
       (let ((new-exp (scan sexp)))
         (cond
           ((not (null? memo-tbl))
@@ -201,9 +215,7 @@
                       memo-tbl)
                   )))
               new-exp)))
-      (else new-exp)))
-)
-
+          (else new-exp)))))
 
 (cond-expand
   (program