From bfd26754e6b8b6acc452e8425f44bd415947ec01 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 9 Feb 2019 16:54:43 +0000 Subject: [PATCH] Fix the rest of the indentation in this file. No functional change. --- tests/runtime/test-syntax.scm | 46 +++++++++++++++++------------------ 1 file changed, 23 insertions(+), 23 deletions(-) diff --git a/tests/runtime/test-syntax.scm b/tests/runtime/test-syntax.scm index e8cf2393b..3358ad2d1 100644 --- a/tests/runtime/test-syntax.scm +++ b/tests/runtime/test-syntax.scm @@ -34,22 +34,22 @@ USA. (define-test 'local-define-syntax/syntax (lambda () (assert-matches - (unsyntax - (syntax '(let () - (define-syntax test - (syntax-rules () ((test) (lambda (y) y)))) - (list ((test) 1) ((test) 2))) - test-environment)) - '(let () (list (let ((?y1 1)) ?y1) (let ((?y2 2)) ?y2)))))) - -(define-test 'local-define-syntax/eval - (lambda () - (assert-equal - (eval '(let () + (unsyntax + (syntax '(let () (define-syntax test (syntax-rules () ((test) (lambda (y) y)))) (list ((test) 1) ((test) 2))) - test-environment) + test-environment)) + '(let () (list (let ((?y1 1)) ?y1) (let ((?y2 2)) ?y2)))))) + +(define-test 'local-define-syntax/eval + (lambda () + (assert-equal + (eval '(let () + (define-syntax test + (syntax-rules () ((test) (lambda (y) y)))) + (list ((test) 1) ((test) 2))) + test-environment) '(1 2)))) (define-test 'bug55090 @@ -87,14 +87,14 @@ USA. array)))))))) (define-test 'quoted-macro-name - (lambda () - (assert-equal - (unsyntax - (syntax '(let () - (define-syntax foo - (er-macro-transformer - (lambda (f r c) - `(,(r 'quote) foo)))) - (foo)) - test-environment)) + (lambda () + (assert-equal + (unsyntax + (syntax '(let () + (define-syntax foo + (er-macro-transformer + (lambda (f r c) + `(,(r 'quote) foo)))) + (foo)) + test-environment)) '(let () 'foo)))) \ No newline at end of file -- 2.25.1