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")