summaryrefslogtreecommitdiffstats
path: root/tests/011
diff options
context:
space:
mode:
Diffstat (limited to 'tests/011')
-rw-r--r--tests/011/macros-2.txr2
-rw-r--r--tests/011/mandel.txr10
-rw-r--r--tests/011/special-1.txr2
3 files changed, 7 insertions, 7 deletions
diff --git a/tests/011/macros-2.txr b/tests/011/macros-2.txr
index 0d63a13b..be385c6f 100644
--- a/tests/011/macros-2.txr
+++ b/tests/011/macros-2.txr
@@ -2,7 +2,7 @@
(defmacro while ((condition : result) . body)
(let ((cblk (gensym "cnt-blk-"))
(bblk (gensym "brk-blk-")))
- '(macrolet ((break (value) '(return-from ,',bblk ,value)))
+ ^(macrolet ((break (value) ^(return-from ,',bblk ,value)))
(symacrolet ((break (return-from ,bblk))
(continue (return-from ,cblk)))
(block ,bblk
diff --git a/tests/011/mandel.txr b/tests/011/mandel.txr
index 84200ffa..15195f33 100644
--- a/tests/011/mandel.txr
+++ b/tests/011/mandel.txr
@@ -13,9 +13,9 @@
(defvar y-offset (+ y-centre (* 0.5 pixel-size (+ j-max 1))))
;; complex number library
- (defmacro cplx (x y) '(cons ,x ,y))
- (defmacro re (c) '(car ,c))
- (defmacro im (c) '(cdr ,c))
+ (defmacro cplx (x y) ^(cons ,x ,y))
+ (defmacro re (c) ^(car ,c))
+ (defmacro im (c) ^(cdr ,c))
(defsymacro c0 (macro-time (cplx 0 0)))
@@ -23,9 +23,9 @@
(defun with-cplx-expand (specs body)
(tree-case specs
(((re im expr) . rest)
- '(tree-bind (,re . ,im) ,expr ,(with-cplx-expand rest body)))
+ ^(tree-bind (,re . ,im) ,expr ,(with-cplx-expand rest body)))
(() (tree-case body
- ((a b . rest) '(progn ,a ,b ,*rest))
+ ((a b . rest) ^(progn ,a ,b ,*rest))
((a) a)
(x (error "with-cplx: invalid body ~s" body))))
(x (error "with-cplx: bad args ~s" x)))))
diff --git a/tests/011/special-1.txr b/tests/011/special-1.txr
index 72ab844a..f3e92a03 100644
--- a/tests/011/special-1.txr
+++ b/tests/011/special-1.txr
@@ -1,6 +1,6 @@
@(do
(defmacro with-output-to-string ((var) . forms)
- '(let ((,var (make-string-output-stream)))
+ ^(let ((,var (make-string-output-stream)))
(progn ,*forms (get-string-from-stream ,var))))
(let ((x (with-output-to-string (*stdout*)