From 6f45daa5f44927fb25cc1d9a67499393b4eacec9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 20 Dec 2007 01:45:35 +0000 Subject: [PATCH] fix #%app bug when it starts with a keyword; PR 9122 svn: r8077 --- collects/scheme/private/kw.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/private/kw.ss b/collects/scheme/private/kw.ss index 938c2406ab..137e5a7df0 100644 --- a/collects/scheme/private/kw.ss +++ b/collects/scheme/private/kw.ss @@ -592,7 +592,7 @@ (let ([l (syntax->list stx)]) (if (not (and l (pair? (cdr l)) - (not (keyword? (cadr l))) + (not (keyword? (syntax-e (cadr l)))) (ormap (lambda (x) (keyword? (syntax-e x))) l))) ;; simple or erroneous app: