Only use free-identifier=? when it's an identifier.

2008-06-17 10:43:37 -04:00 · 2008-06-17 10:43:37 -04:00 · 8d810160f2
commit 8d810160f2
parent cf33d49c26
1 changed files with 7 additions and 5 deletions
--- a/collects/typed-scheme/private/tc-app-unit.ss
+++ b/collects/typed-scheme/private/tc-app-unit.ss
@ -542,7 +542,9 @@
       (tc/rec-lambda/check form #'(args ...) #'body #'lp ts expected)
       (ret expected))]
    [(#%plain-app or/andmap f arg)
-     (and (or (free-identifier=? #'or/andmap #'ormap)
+     (and 
+      (identifier? #'or/andmap)
+      (or (free-identifier=? #'or/andmap #'ormap)
          (free-identifier=? #'or/andmap #'andmap))
      (with-handlers (#;[exn:fail? (lambda _ #f)])
        (tc/dots #'arg)