summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/011/special-1.tl9
-rw-r--r--tests/011/special-1.txr10
2 files changed, 9 insertions, 10 deletions
diff --git a/tests/011/special-1.tl b/tests/011/special-1.tl
new file mode 100644
index 00000000..8e2c6f9b
--- /dev/null
+++ b/tests/011/special-1.tl
@@ -0,0 +1,9 @@
+(defmacro with-output-to-string ((var) . forms)
+ ^(let ((,var (make-string-output-stream)))
+ (progn ,*forms (get-string-from-stream ,var))))
+
+(let ((x (with-output-to-string (*stdout*)
+ [format *stdout* "wo"]
+ (format t "rld!"))))
+ (format *stdout* "Hello, ")
+ (put-line x))
diff --git a/tests/011/special-1.txr b/tests/011/special-1.txr
deleted file mode 100644
index f3e92a03..00000000
--- a/tests/011/special-1.txr
+++ /dev/null
@@ -1,10 +0,0 @@
-@(do
- (defmacro with-output-to-string ((var) . forms)
- ^(let ((,var (make-string-output-stream)))
- (progn ,*forms (get-string-from-stream ,var))))
-
- (let ((x (with-output-to-string (*stdout*)
- [format *stdout* "wo"]
- (format t "rld!"))))
- (format *stdout* "Hello, ")
- (put-line x)))