turning debug printing back on.

whalesong/compiler/compiler.rkt

@@ -263,9 +263,10 @@
 
 
 (: compile-module-invoke (ModuleLocator -> InstructionSequence))
-;; Generates code that will invoke a module (if it hasn't been invoked yet)
+;; Generates code that will invoke a module (if it hasn't been invoked
-;; FIXME: assumes the module has already been linked.  We should error out
+;; yet) FIXME: assumes the module has already been loaded/linked.  We
-;; if the module hasn't been linked yet.
+;; should try to load the module, or error out if the module can't be
+;; found.
 (define (compile-module-invoke a-module-name)
   (cond
     [(kernel-module-name? a-module-name)
@@ -2286,4 +2287,4 @@
       (ensure-toplevelref
        (adjust-expression-depth (VariableReference-toplevel exp) n skip)))]
     [(Require? exp)
-     exp]))
+     exp]))

whalesong/compiler/optimize-il.rkt

@@ -188,8 +188,8 @@
                 (loop (rest stmts)))]
          
          [(DebugPrint? a-stmt)
-          ;(cons a-stmt (loop (rest stmts)))
+          (cons a-stmt (loop (rest stmts)))
-          (loop (rest stmts))
+          #;(loop (rest stmts))
           ]
 
          [(Comment? a-stmt)
@@ -344,8 +344,8 @@
      #f]
     
     [(DebugPrint? stmt)
-     ;#f
+     #f
-     #t]
+     #;#t]
     
     [(AssignImmediate? stmt)
      (equal? (AssignImmediate-target stmt)
@@ -442,4 +442,4 @@
 (define (ensure-natural x)
   (if (natural? x)
       x
-      (error 'ensure-natural)))
+      (error 'ensure-natural)))