mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

object->assembly shouldn't presume existence of %nil

Browse source 
The %nil constant only exists if SCM_ENABLE_ELISP is defined.

* module/language/assembly (object->assembly): check for existence of %nil
This commit is contained in:
Michael Gran 2010-01-17 13:41:14 -08:00
parent 870d7a2b4f
commit 7beae9f15a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/assembly.scm
View file

@ -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))