Cleanup, adjust formatting, remove debug statement

cyclone.scm

@@ -232,7 +232,9 @@
       (trace:info "---------------- after alpha conversion:")
       (trace:info input-program) ;pretty-print
 
-;; EXPERIMENTAL CODE
+      ;; EXPERIMENTAL CODE - Load functions in other modules that are
+      ;; able to be inlined (in this context, from CPS).
+      ;;
       ;; TODO: extend this initially by, for each import, invoking that module's inlinable_lambdas function
       ;;       behind an exception handler (in case the compiler does not have that module loaded).
       ;;
@@ -265,7 +267,7 @@
                           ;; More of a band-aid than a true solution, though.
                           (not (member (car v/i) module-globals)))
                         (eval `( ,inlinable-lambdas-fnc )))))
-           (trace:info `(DEBUG ,import ,vars/inlines ,module-globals))
+                 ;(trace:info `(DEBUG ,import ,vars/inlines ,module-globals))
                  ;; Register inlines as user-defined primitives
                  (for-each
                    (lambda (v/i)
@@ -286,23 +288,6 @@
                 ;; if this work is done, would need to consolidate inline reg code above
                 #f)))))
         imports)
-
-;(for-each
-;  (lambda (psyms)
-;    (let ((var (car psyms)) (inline (cdr psyms)))
-;      (prim:add-udf! var inline)))
-;  (eval '(c_schemebase_inlinable_lambdas)))
-;  ;(assoc 'quotient (c_schemebase_inlinable_lambdas))
-;  ;    (set! globals (append (lib:idb:ids imported-vars) module-globals))
-;
-;  ;; total hack to update export list
-;  (set! imported-vars 
-;    (append
-;      imported-vars
-;      (map
-;        (lambda (psyms)
-;          (list (cdr psyms) 'scheme 'base))
-;        (eval '(c_schemebase_inlinable_lambdas)))))
       ;; END
 
       ;; Convert some function calls to primitives, if possible