From 7fd45c0473e75eac56b4496cec89d6c4186aff18 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 23 Dec 2016 09:21:39 -0800
Subject: Convert special-1 test from txr to tl.

* tests/011/special-1.txr: Renamed to
tests/011/special-1.tl and @(do ...) removed.
---
 tests/011/special-1.tl  |  9 +++++++++
 tests/011/special-1.txr | 10 ----------
 2 files changed, 9 insertions(+), 10 deletions(-)
 create mode 100644 tests/011/special-1.tl
 delete mode 100644 tests/011/special-1.txr

(limited to 'tests')

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)))
-- 
cgit v1.2.3