From 307b638c8d43abc0fda0e9e55214fd1f992cd73f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 12 Aug 2006 02:18:03 +0000 Subject: [PATCH] minor bugfix svn: r4028 --- collects/stepper/private/macro-unwind.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/stepper/private/macro-unwind.ss b/collects/stepper/private/macro-unwind.ss index 7535db6ba2..aa754965ef 100644 --- a/collects/stepper/private/macro-unwind.ss +++ b/collects/stepper/private/macro-unwind.ss @@ -271,7 +271,7 @@ (map inner (syntax->list #`(body ...)))]) #`(begin new-body ...))])) - (define ((unwind-and/or label) stx user-source user-position) + (define ((unwind-and/or label) stx) (let ([user-source (syntax-property stx 'user-source)] [user-position (syntax-property stx 'user-position)] [clause-padder (case label [(and) #`true] [(or) #`false])])