core: Disable quasiquote.
* mes.c (QUASIQUOTE): Switch off. * tests/read.test: Remove quasiquote tests.
This commit is contained in:
parent
ea7c0aac86
commit
527fd253eb
2
mes.c
2
mes.c
|
@ -29,7 +29,7 @@
|
||||||
#include <stdbool.h>
|
#include <stdbool.h>
|
||||||
|
|
||||||
#define DEBUG 0
|
#define DEBUG 0
|
||||||
#define QUASIQUOTE 1
|
#define QUASIQUOTE 0
|
||||||
#define QUASISYNTAX 0
|
#define QUASISYNTAX 0
|
||||||
#define ENV_CACHE 0
|
#define ENV_CACHE 0
|
||||||
#define FIXED_PRIMITIVES 1
|
#define FIXED_PRIMITIVES 1
|
||||||
|
|
|
@ -9,7 +9,6 @@ exit $?
|
||||||
;; FIXME
|
;; FIXME
|
||||||
(gc)
|
(gc)
|
||||||
|
|
||||||
|
|
||||||
0
|
0
|
||||||
cons
|
cons
|
||||||
(cons 0 1)
|
(cons 0 1)
|
||||||
|
@ -47,8 +46,6 @@ barf
|
||||||
burp
|
burp
|
||||||
|#
|
|#
|
||||||
#;(bla) (display "must see!\n")
|
#;(bla) (display "must see!\n")
|
||||||
(display `(display ,display)) (newline)
|
|
||||||
(display `(display ,@'(string port))) (newline)
|
|
||||||
(display #(0 1 2)) (newline)
|
(display #(0 1 2)) (newline)
|
||||||
(display (list '(foo
|
(display (list '(foo
|
||||||
#! boo !#
|
#! boo !#
|
||||||
|
|
Loading…
Reference in a new issue