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

unlock letrec-syntax test

This commit is contained in:
Yuichi Nishiwaki 2014-07-16 14:32:04 +09:00
parent b86d010b76
commit 8e114fae6b
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
t/r7rs-tests.scm
View File

@ -464,24 +464,24 @@
(let ((x 'inner)) (let ((x 'inner))
(m))))) (m)))))
;; (test 7 (letrec-syntax (test 7 (letrec-syntax
;; ((my-or (syntax-rules () ((my-or (syntax-rules ()
;; ((my-or) #f) ((my-or) #f)
;; ((my-or e) e) ((my-or e) e)
;; ((my-or e1 e2 ...) ((my-or e1 e2 ...)
;; (let ((temp e1)) (let ((temp e1))
;; (if temp (if temp
;; temp temp
;; (my-or e2 ...))))))) (my-or e2 ...)))))))
;; (let ((x #f) (let ((x #f)
;; (y 7) (y 7)
;; (temp 8) (temp 8)
;; (let odd?) (let odd?)
;; (if even?)) (if even?))
;; (my-or x (my-or x
;; (let temp) (let temp)
;; (if y) (if y)
;; y)))) y))))
(define-syntax be-like-begin (define-syntax be-like-begin
(syntax-rules () (syntax-rules ()