From 2b5f12b6fa40705a88e4a9af367217d03133ada4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 11 Jul 2009 04:04:19 +0000 Subject: [PATCH] fix broken 'case' improvement! svn: r15429 --- collects/scheme/private/more-scheme.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scheme/private/more-scheme.ss b/collects/scheme/private/more-scheme.ss index 28380de57e..7b5bcb3bf7 100644 --- a/collects/scheme/private/more-scheme.ss +++ b/collects/scheme/private/more-scheme.ss @@ -13,9 +13,9 @@ [(_ x (k)) (syntax (eqv? x 'k))] [(_ x (k1 k2)) - (syntax (let ([tmp x]) (if (eqv? x 'k1) #t (eqv? x 'k2))))] + (syntax (let ([tmp x]) (if (eqv? tmp 'k1) #t (eqv? tmp 'k2))))] [(_ x (k1 k2 k3)) - (syntax (let ([tmp x]) (if (eqv? x 'k1) #t (if (eqv? x 'k2) #t (eqv? x 'k3)))))] + (syntax (let ([tmp x]) (if (eqv? tmp 'k1) #t (if (eqv? tmp 'k2) #t (eqv? tmp 'k3)))))] [(_ x (k ...)) (syntax (memv x '(k ...)))])))