diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-12-23 09:21:39 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-12-23 09:21:39 -0800 |
| commit | 7fd45c0473e75eac56b4496cec89d6c4186aff18 (patch) | |
| tree | 733ab74bc42c35d611bcd4f60400ec52c88b04b8 /tests | |
| parent | 92467a133e8b09c5317a403c57f4140e76d8b050 (diff) | |
| download | txr-7fd45c0473e75eac56b4496cec89d6c4186aff18.tar.gz txr-7fd45c0473e75eac56b4496cec89d6c4186aff18.tar.bz2 txr-7fd45c0473e75eac56b4496cec89d6c4186aff18.zip | |
Convert special-1 test from txr to tl.
* tests/011/special-1.txr: Renamed to
tests/011/special-1.tl and @(do ...) removed.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/011/special-1.tl | 9 | ||||
| -rw-r--r-- | tests/011/special-1.txr | 10 |
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))) |