Do not use quasiquote in base0.

* base0.scm (defined?): Rewrite without quasiquote.
2016-10-16 09:21:17 +02:00 · 2016-10-16 09:21:17 +02:00 · 6948629c27
parent dd271be218
commit 6948629c27
1 changed files with 1 additions and 1 deletions
--- 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)