Identifiers in the template should only match pattern variables

from the same expansion step.  Fixes issue #366.

.travis.yaml

@@ -1,4 +0,0 @@
-language: c
-compiler:
-  - clang
-  - gcc

lib/init-7.scm

@@ -848,7 +848,7 @@
         (cond
          ((identifier? t)
           (cond
-           ((find (lambda (v) (compare t (car v))) vars)
+           ((find (lambda (v) (eq? t (car v))) vars)
             => (lambda (cell)
                  (if (<= (cdr cell) dim)
                      t

tests/r7rs-tests.scm

@@ -499,6 +499,16 @@
     #f)
   (test 1 x))
 
+(let ()
+ (define-syntax foo
+   (syntax-rules ()
+     ((foo bar y)
+      (define-syntax bar
+        (syntax-rules ()
+          ((bar x) 'y))))))
+ (foo bar x)
+ (test 'x (bar 1)))
+
 (test-end)
 
 (test-begin "5 Program structure")