Do not use quasiquote in base0.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 16 Oct 2016 07:21:17 +0000 (09:21 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 16 Oct 2016 07:21:17 +0000 (09:21 +0200)
* base0.scm (defined?): Rewrite without quasiquote.

base0.mes

index 4fd496a1cec0119306049a71415e87ccb02ef492..fc27aef391546196abf900ba4784587ebbddc22a 100644 (file)
--- a/base0.mes
+++ b/base0.mes
@@ -19,7 +19,7 @@
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-macro (defined? x)
-  `(assq ,x (cddr (current-module))))
+  (list 'assq x '(cddr (current-module))))
 
 (define (current-input-port) 0)
 (define (current-output-port) 1)