More tests

tests/let-syntax.scm

@@ -26,6 +26,27 @@
         (if even?))
     (my-or x (let temp) (if y) y))) ;; ==> 7
 
+
+;; From Chibi
+#;(let ()
+  (letrec-syntax ()
+    (define internal-def 'ok))
+  internal-def)
+
+
+#;(let ((a 1))
+     (let-syntax
+     ;;(letrec-syntax
+         ((foo (syntax-rules ()
+                 ((_ b)
+                  (bar a b))))
+          (bar (syntax-rules ()                                                                                                                               ((_ c d)
+                  (cons c (let ((c 3))
+                            (list d c 'c)))))))
+       (let ((a 2))
+         (foo a))))
+
+
 (define-syntax my-let
   (syntax-rules
     ()