adding comments to the intermediate language to help me trace what's going on in the simulator

il-structs.rkt

@@ -132,7 +132,9 @@
 
                                  PopControlFrame
                                  
-                                 DebugPrint))
+                                 DebugPrint
+                                 Comment
+                                 ))
 
 
 ;; Debug print statement.
@@ -215,6 +217,8 @@
   #:transparent)
 
 
+(define-struct: Comment ([val : Any])
+  #:transparent)
 
 
 

js-assembler/assemble.rkt

@@ -154,6 +154,8 @@ EOF
              [(PushControlFrame/Prompt? stmt)
               (next)]
              [(PopControlFrame? stmt)
+              (next)]
+             [(Comment? stmt)
               (next)]))]))
 
 
@@ -292,7 +294,10 @@ EOF
                                         (format "[~a]" (assemble-oparg (PushImmediateOntoEnvironment-value stmt)))]
                                        [else
                                         (assemble-oparg (PushImmediateOntoEnvironment-value stmt))])])
-                    val-string))])))
+                    val-string))]
+     [(Comment? stmt)
+      ;; TODO: maybe comments should be emitted as JavaScript comments.
+      ""])))
 
 
 (define-predicate natural? Natural)

js-assembler/collect-jump-targets.rkt

@@ -60,6 +60,8 @@
    [(PushControlFrame/Prompt? stmt)
     (label->labels (PushControlFrame/Prompt-label stmt))]
    [(PopControlFrame? stmt)
+    empty]
+   [(Comment? stmt)
     empty]))
 
 

optimize-il.rkt

@@ -102,6 +102,8 @@
      #f]
     
     [(PopControlFrame? stmt)
+     #f]
+    [(Comment? stmt)
      #f]))
 
 

simulator/simulator.rkt

@@ -124,6 +124,8 @@
                      (step-push-control-frame/prompt! m i)]
                     [(PopControlFrame? i)
                      (step-pop-control-frame! m i)]
+                    [(Comment? i)
+                     'ok]
                     )])
          (increment-pc! m)))