From de0fc2e745c1ab43207d90e9410a7f9389c3c570 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 28 May 2009 03:01:45 +0000 Subject: [PATCH] fix syntax patterns on prefabs (PR 10268) (merge to 4.2) svn: r15001 --- collects/scheme/private/stxcase.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scheme/private/stxcase.ss b/collects/scheme/private/stxcase.ss index 39008d7bd7..b5de2bfbef 100644 --- a/collects/scheme/private/stxcase.ss +++ b/collects/scheme/private/stxcase.ss @@ -235,8 +235,8 @@ (append m body)) body)))))))])))] [(eq? i 'prefab) - (and (stx-prefab? (vector-ref i 1) e) - (loop (vector-ref i 2) (cdr (vector->list (struct->vector (syntax-e e)))) cap))] + (and (stx-prefab? (vector-ref pat 1) e) + (loop (vector-ref pat 2) (cdr (vector->list (struct->vector (syntax-e e)))) cap))] [else (error "yikes!" pat)]))])))) (-define-syntax syntax-case**