summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2010-01-17 13:41:14 -0800
committerMichael Gran <spk121@yahoo.com>2010-01-17 13:41:14 -0800
commit7beae9f15ac49f144a15d3ebfe80c2f29e43b3ff (patch)
tree2da07cf927f1a602890ba434c5d8f8b488a0922d
parent870d7a2b4f397a4619553b0f9798b6e8b3ed173e (diff)
downloadguile-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.scm2
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))