From 8e114fae6b24b78c95c0d75e38695050f7d27b3c Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 16 Jul 2014 14:32:04 +0900
Subject: [PATCH] unlock letrec-syntax test

---
 t/r7rs-tests.scm | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm
index 0e818ca1..eeac935e 100644
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@@ -464,24 +464,24 @@
     (let ((x 'inner))
       (m)))))
 
-;; (test 7 (letrec-syntax
-;;   ((my-or (syntax-rules ()
-;;             ((my-or) #f)
-;;             ((my-or e) e)
-;;             ((my-or e1 e2 ...)
-;;              (let ((temp e1))
-;;                (if temp
-;;                    temp
-;;                    (my-or e2 ...)))))))
-;;   (let ((x #f)
-;;         (y 7)
-;;         (temp 8)
-;;         (let odd?)
-;;         (if even?))
-;;     (my-or x
-;;            (let temp)
-;;            (if y)
-;;            y))))
+(test 7 (letrec-syntax
+  ((my-or (syntax-rules ()
+            ((my-or) #f)
+            ((my-or e) e)
+            ((my-or e1 e2 ...)
+             (let ((temp e1))
+               (if temp
+                   temp
+                   (my-or e2 ...)))))))
+  (let ((x #f)
+        (y 7)
+        (temp 8)
+        (let odd?)
+        (if even?))
+    (my-or x
+           (let temp)
+           (if y)
+           y))))
 
 (define-syntax be-like-begin
   (syntax-rules ()