adding unhygiene tests

tests/basic/test09-hygiene.res

@@ -2,3 +2,4 @@
 2
 3
 4
+5

tests/basic/test09-hygiene.scm

@@ -10,3 +10,16 @@
   (write (or #f tmp))
   (newline))
 
+(write
+ (letrec-syntax
+     ((myor
+       (er-macro-transformer
+        (lambda (expr rename compare)
+          (if (null? (cdr expr))
+              #f
+              (list (rename 'let) (list (list (rename 'tmp) (cadr expr)))
+                    (list (rename 'if) (rename 'tmp)
+                          (rename 'tmp)
+                          (cons (rename 'myor) (cddr expr)))))))))
+   (let ((tmp 5)) (myor #f tmp))))
+(newline)

tests/basic/test10-unhygiene.res

@@ -0,0 +1,4 @@
+1
+1
+1
+6

tests/basic/test10-unhygiene.scm

@@ -0,0 +1,27 @@
+
+(define-syntax aif
+  (sc-macro-transformer
+   (lambda (form environment)
+     (let ((condition
+            (make-syntactic-closure environment '() (cadr form)))
+           (consequent
+            (make-syntactic-closure environment '(it) (caddr form)))
+           (alternative
+            (make-syntactic-closure environment '() (cadddr form))))
+       `(let ((it ,condition))
+             (if it
+                 ,consequent
+                 ,alternative))))))
+
+(write (aif 1 it 3))
+(newline)
+
+(write (let ((it 4)) (aif 1 it 3)))
+(newline)
+
+(write (let ((it 4)) (aif (let ((it 5)) 1) it 3)))
+(newline)
+
+(write (let ((it 4)) (aif (let ((it 5)) 1) (let ((it 6)) it) 3)))
+(newline)
+