From 1241f71e802e6edfffad22f35b3b481b406fdf83 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 31 Aug 2016 23:39:53 -0400
Subject: [PATCH] Merge fix from Chibi scheme

"Identifiers in the template should only match pattern variables from the same expansion step."
---
 scheme/base.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index cdc84e9e..6fe303d9 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -1357,7 +1357,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