From 7fd45c0473e75eac56b4496cec89d6c4186aff18 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku 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.txr | 10 ---------- 1 file changed, 10 deletions(-) delete mode 100644 tests/011/special-1.txr (limited to 'tests/011/special-1.txr') 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