diff options
author | Akshay <[email protected]> | 2020-11-08 10:16:59 +0000 |
---|---|---|
committer | Akshay <[email protected]> | 2020-11-08 10:16:59 +0000 |
commit | 86012f579bd4e90bcb08e5d4c4bca23ff9759f3c (patch) | |
tree | 0af2c4299bbac7bf18e004c05268244190ce7e5c /environment.scm | |
parent | eb6da7644bcf0656602fdf6e43f293759c853f66 (diff) |
Diffstat (limited to 'environment.scm')
-rw-r--r-- | environment.scm | 3 |
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 @@ | |||
29 | (error "Too few or too many arguments supplied" vars vals))) | 29 | (error "Too few or too many arguments supplied" vars vals))) |
30 | 30 | ||
31 | ;;; variable lookup | 31 | ;;; variable lookup |
32 | (define (is-unassigned? u) (eq? u '*unassigned*)) | 32 | (define (is-unassigned? u) (eq? u ''*unassigned*)) |
33 | (define (lookup-variable-value var env) | 33 | (define (lookup-variable-value var env) |
34 | (cond | 34 | (cond |
35 | [(empty-env? env) (error "Unbound variable" var)] | 35 | [(empty-env? env) (error "Unbound variable" var)] |
@@ -77,6 +77,5 @@ | |||
77 | the-empty-env)]) | 77 | the-empty-env)]) |
78 | (define-variable! 'true #t initial-env) | 78 | (define-variable! 'true #t initial-env) |
79 | (define-variable! 'false #f initial-env) | 79 | (define-variable! 'false #f initial-env) |
80 | (define-variable! '*unassigned* #f initial-env) | ||
81 | initial-env)) | 80 | initial-env)) |
82 | 81 | ||