From 209b252f2cf61d19465ea77656afd76fb9562337 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 11 Nov 2008 17:53:12 +0000 Subject: [PATCH] fix shared on top-level 'list' binding svn: r12387 --- collects/mzlib/private/shared-body.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/private/shared-body.ss b/collects/mzlib/private/shared-body.ss index 756c7bc3f3..7027b784dc 100644 --- a/collects/mzlib/private/shared-body.ss +++ b/collects/mzlib/private/shared-body.ss @@ -97,14 +97,14 @@ [(mcons . _) (bad "mcons")] [(lst e ...) - (ormap (lambda (x) (free-identifier=? x #'lst)) + (ormap (lambda (x) (same-special-id? #'lst x)) (syntax->list #'(list list*))) (with-syntax ([(e ...) (map (lambda (x) (cons-elem x)) (syntax->list (syntax (e ...))))]) (syntax/loc expr (lst e ...)))] [(lst . _) - (ormap (lambda (x) (free-identifier=? x #'lst)) + (ormap (lambda (x) (same-special-id? #'lst x)) (syntax->list #'(list list*))) (bad (syntax-e #'lst))] [(append e0 ... e)