conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

unlock let-synatx test

This commit is contained in:
Yuichi Nishiwaki 2014-07-14 10:09:23 +09:00
parent 5faa7cd46d
commit 729162b69f
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
t/r7rs-tests.scm
View File

@ -440,20 +440,20 @@
(test-begin "4.3 Macros") (test-begin "4.3 Macros")
;; (test 'now (let-syntax (test 'now (let-syntax
;; ((when (syntax-rules () ((when (syntax-rules ()
;; ((when test stmt1 stmt2 ...) ((when test stmt1 stmt2 ...)
;; (if test (if test
;; (begin stmt1 (begin stmt1
;; stmt2 ...)))))) stmt2 ...))))))
;; (let ((if #t)) (let ((if #t))
;; (when if (set! if 'now)) (when if (set! if 'now))
;; if))) if)))
;; (test 'outer (let ((x 'outer)) (test 'outer (let ((x 'outer))
;; (let-syntax ((m (syntax-rules () ((m) x)))) (let-syntax ((m (syntax-rules () ((m) x))))
;; (let ((x 'inner)) (let ((x 'inner))
;; (m))))) (m)))))
;; (test 7 (letrec-syntax ;; (test 7 (letrec-syntax
;; ((my-or (syntax-rules () ;; ((my-or (syntax-rules ()