From ca058b277cc7f66ab6c7d9047553eb0134b86848 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 23 May 2006 18:36:50 +0000 Subject: [PATCH] another typo svn: r3018 --- collects/setup/configtab.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/setup/configtab.ss b/collects/setup/configtab.ss index 835619b13a..7b663dd612 100644 --- a/collects/setup/configtab.ss +++ b/collects/setup/configtab.ss @@ -68,7 +68,7 @@ [else (loop (cdr names) (cdr syms))])) (with-syntax ([(expr ...) (map (lambda (name val) - (if (memq name path-exports) + (if (memq (syntax-e name) path-exports) #`(delay #,val) val)) (syntax->list #'(name ...)) (syntax->list #'(val ...)))])