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

diff --git a/module/language/assembly.scm b/module/language/assembly.scm
index 95604b2..908bd90 100644 (file)
--- 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))