From 475822b44a5d54bb94665b8c1294d18b78c73a38 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 Nov 2012 13:53:09 -0600 Subject: [PATCH] fix a bug in a syntax-case keywords spec closes PR 13237 (turns out not to be planet-specific) --- collects/drracket/private/syncheck/traversals.rkt | 2 +- collects/tests/drracket/syncheck-test.rkt | 10 ++++++++++ 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt index 7675316bb6..21e675e829 100644 --- a/collects/drracket/private/syncheck/traversals.rkt +++ b/collects/drracket/private/syncheck/traversals.rkt @@ -630,7 +630,7 @@ [else (eq? var id)])) (define (phaseless-spec->raw-module-path stx) - (syntax-case* stx (only prefix all-expect prefix-all-except rename) symbolic-compare? + (syntax-case* stx (only prefix all-except prefix-all-except rename) symbolic-compare? [(only raw-module-path id ...) #'raw-module-path] [(prefix prefix-id raw-module-path) #'raw-module-path] [(all-except raw-module-path id ...) #'raw-module-path] diff --git a/collects/tests/drracket/syncheck-test.rkt b/collects/tests/drracket/syncheck-test.rkt index 22210ccb09..0bfcf87e0c 100644 --- a/collects/tests/drracket/syncheck-test.rkt +++ b/collects/tests/drracket/syncheck-test.rkt @@ -999,6 +999,16 @@ (")" default-color)) '(((26 29) (47 50)) ((6 17) (19 25)))) + + (build-test "#lang racket/base\n(require '#%kernel)\npair?" + '(("#lang racket/base\n(" default-color) + ("require" imported) + (" '#%kernel)\n" default-color) + ("pair?" imported)) + (list '((6 17) (19 26)) + '((27 36) (38 43)))) + + (build-rename-test "(lambda (x) x)" 9