From adbf1bb2963cd4ed87c351a48c126a86f04eb4cd Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Tue, 8 Nov 2016 21:05:01 +0100 Subject: [PATCH] test: Add psyntax closure tests. * tests/closure.test (closure 7, closure 8, closure 9): New test. --- tests/closure.test | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/tests/closure.test b/tests/closure.test index 3a1be01a..59baf5ff 100755 --- a/tests/closure.test +++ b/tests/closure.test @@ -79,4 +79,22 @@ exit $? ((foo))) #t)) +(define-macro (foo? q+q) + #t) +(foo? 'cons) +(pass-if-equal "closure 7" #f (defined? 'q+q)) + +(let ((x 0)) + (pass-if-equal "closure 8" #f (not (defined? 'x)))) + +((lambda () + (define sc-expand #f) + ((lambda (g38) + (set! sc-expand + ((lambda () + (lambda () + (list g38)))))) + "noexpand") + (pass-if "closure 9" (sc-expand)))) + (result 'report)