From 7e1692324fa0725e1a79836c74f65e17018b264c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 8 Feb 2001 23:28:52 +0000 Subject: [PATCH] . original commit: c3f4849e33ab56d3ad5e7778710da7472bef6cda --- collects/mzlib/include.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/mzlib/include.ss b/collects/mzlib/include.ss index 00674fe..f718254 100644 --- a/collects/mzlib/include.ss +++ b/collects/mzlib/include.ss @@ -5,7 +5,9 @@ (lambda (stx) ;; Parse the file name (let ([file - (syntax-case stx (build-path) + (syntax-case* stx (build-path) (lambda (a b) + (eq? (syntax-e a) + (syntax-e b))) [(_ fn) (string? (syntax-e (syntax fn))) (syntax-e (syntax fn))]