Committing my changes.

swigls-compiler/base.rkt

@@ -1,6 +1,7 @@
 #lang racket
 
 (provide (all-defined-out))
+(require racket/pretty)
 
 ;;make hash table
 (define GENSYM-TABLE (make-hash))
@@ -93,3 +94,8 @@
 ;; - a list of one or more expressions
 (struct seq (expressions)
   #:inspector (make-inspector))
+
+(define (show e)
+  (pretty-print e)
+  (newline)
+  e)

swigls-compiler/create_id_list.rkt

@@ -4,6 +4,7 @@
 (require "base.rkt")
 (provide create-ids)
 
+
 ;; PURPOSE
 ;; Take in the structures from the previous pass
 ;; and produce a list of structures (broken down into the simple forms)

swigls-compiler/driver.rkt

@@ -18,11 +18,25 @@
         )
     (let ([interim 0]
           [asm ""])
+      (printf "parse~n")
       (set! interim (parse sexp))
+      (show interim)
+
+      (printf "remove mult~n")
       (set! interim (remove-mult interim))
+      (show interim)
+
+      (printf "remove while~n")
       (set! interim (removewhile interim))
+      (show interim)
+
+      (printf "remove if~n")
       (set! interim (removeif interim))
+      (show interim)
+
+      (printf "create-ids~n")
       (set! interim (create-ids interim))
+      (show interim)
       (set! asm (pass-to-asm interim)) 
       (let ([op (open-output-file 
                  (string-append file-base ".hack")