diff options
author | Michael Gran <spk121@yahoo.com> | 2010-01-17 13:41:14 -0800 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2010-01-17 13:41:14 -0800 |
commit | 7beae9f15ac49f144a15d3ebfe80c2f29e43b3ff (patch) | |
tree | 2da07cf927f1a602890ba434c5d8f8b488a0922d | |
parent | 870d7a2b4f397a4619553b0f9798b6e8b3ed173e (diff) | |
download | guile-7beae9f15ac49f144a15d3ebfe80c2f29e43b3ff.tar.gz |
object->assembly shouldn't presume existence of %nil
The %nil constant only exists if SCM_ENABLE_ELISP is defined.
* module/language/assembly (object->assembly): check for existence of %nil
-rw-r--r-- | module/language/assembly.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/assembly.scm b/module/language/assembly.scm index 95604b26a..908bd9083 100644 --- a/module/language/assembly.scm +++ b/module/language/assembly.scm @@ -106,7 +106,7 @@ (define (object->assembly x) (cond ((eq? x #t) `(make-true)) ((eq? x #f) `(make-false)) - ((eq? x %nil) `(make-nil)) + ((and (defined? '%nil) (eq? x %nil)) `(make-nil)) ((null? x) `(make-eol)) ((and (integer? x) (exact? x)) (cond ((and (<= -128 x) (< x 128)) |