From 7beae9f15ac49f144a15d3ebfe80c2f29e43b3ff Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Sun, 17 Jan 2010 13:41:14 -0800 Subject: [PATCH] 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 --- module/language/assembly.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))