fix #%app bug when it starts with a keyword; PR 9122

svn: r8077
2007-12-20 01:45:35 +00:00 · 2007-12-20 01:45:35 +00:00 · 6f45daa5f4
commit 6f45daa5f4
parent c4960b7418
1 changed files with 1 additions and 1 deletions
--- 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: