From 2fe78947ab05b0e2507b304ee46229b5d444d58f Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 7 Dec 2017 12:57:38 -0500 Subject: [PATCH] WIP, testing --- tests/let-syntax-298.scm | 6 ++++-- tests/when.scm | 3 ++- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/tests/let-syntax-298.scm b/tests/let-syntax-298.scm index 93a688c9..652f30c4 100644 --- a/tests/let-syntax-298.scm +++ b/tests/let-syntax-298.scm @@ -8,9 +8,11 @@ (let-syntax ((foo (syntax-rules () ((_) 'ok)))) (foo))))) -;(define-syntax foo (syntax-rules ())) +(define-syntax foo (syntax-rules () ((_) 'foo))) (write (bar) ) -;(foo) +(write +(foo) +) diff --git a/tests/when.scm b/tests/when.scm index c24cbf20..40f7d1c7 100644 --- a/tests/when.scm +++ b/tests/when.scm @@ -74,7 +74,8 @@ ((test maybe-symbol t f) t) ((test x t f) f)))) (test abracadabra kt kf))))) -;;(write (symbol?? a)) +(write (symbol?? a #t #f)) +(write (symbol?? "a" #t #f)) (write (let-syntax