From 8cd54d53f7ef0e87392e3b17d3dd131b1ed9dda4 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Sun, 20 Mar 2011 22:46:40 -0400
Subject: [PATCH] forgot to translate void

---
 assemble.rkt      | 2 ++
 test-assemble.rkt | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/assemble.rkt b/assemble.rkt
index f78594c..706c675 100644
--- a/assemble.rkt
+++ b/assemble.rkt
@@ -318,6 +318,8 @@ EOF
                        (loop (cdr val)))]
               [(boolean? val)
                (if val "true" "false")]
+              [(void? val)
+               "null"]
               [(empty? val)
                (format "Primitives.null")]
               [else
diff --git a/test-assemble.rkt b/test-assemble.rkt
index dfaa876..fc97934 100644
--- a/test-assemble.rkt
+++ b/test-assemble.rkt
@@ -90,6 +90,9 @@
 ;; Assigning a cons
 (test (E-single (make-AssignImmediateStatement 'val (make-Const (cons 1 2))))
       "1,2")
+;; Assigning a void
+(test (E-single (make-AssignImmediateStatement 'val (make-Const (void))))
+      "null")
 ;; Assigning to proc means val should still be uninitialized.
 (test (E-single (make-AssignImmediateStatement 'proc (make-Const "Danny")))
       "undefined")