* module/language/assembly.scm (object->assembly, assembly->object):
* module/language/elisp/compile-tree-il.scm (compile-pair):
* module/language/glil/decompile-assembly.scm (decompile-load-program):
Change instances of %nil to #nil.
(define (object->assembly x)
(cond ((eq? x #t) `(make-true))
((eq? x #f) `(make-false))
- ((and (defined? '%nil) (eq? x %nil)) `(make-nil))
+ ((eq? x #nil) `(make-nil))
((null? x) `(make-eol))
((and (integer? x) (exact? x))
(cond ((and (<= -128 x) (< x 128))
(pmatch code
((make-true) #t)
((make-false) #f) ;; FIXME: Same as the `else' case!
- ((make-nil) %nil)
+ ((make-nil) #nil)
((make-eol) '())
((make-int8 ,n)
(if (< n 128) n (- n 256)))
;;; Guile Emacs Lisp
-;; Copyright (C) 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
; (if condition
; (begin body
; (iterate))
- ; %nil))))
+ ; #nil))))
; (iterate))
;
; As letrec is not directly accessible from elisp, while is implemented here
((make-false)
(lp (cdr in) (cons #f stack) out (1+ pos)))
((make-nil)
- (lp (cdr in) (cons %nil stack) out (1+ pos)))
+ (lp (cdr in) (cons #nil stack) out (1+ pos)))
((load-program ,labels ,sublen ,meta . ,body)
(lp (cdr in)
(cons (decompile-load-program (decompile-meta meta)