1 files changed, 1 insertions, 2 deletions

diff --git a/environment.scm b/environment.scm
index 37f9fa4..d5e606d 100644
--- a/environment.scm
+++ b/environment.scm
@@ -29,7 +29,7 @@
       (error "Too few or too many arguments supplied" vars vals)))
 
 ;;; variable lookup
-(define (is-unassigned? u) (eq? u '*unassigned*))
+(define (is-unassigned? u) (eq? u ''*unassigned*))
 (define (lookup-variable-value var env)
   (cond
     [(empty-env? env) (error "Unbound variable" var)]
@@ -77,6 +77,5 @@
                        the-empty-env)])
     (define-variable! 'true #t initial-env)
     (define-variable! 'false #f initial-env)
-    (define-variable! '*unassigned* #f initial-env)
     initial-env))