fix my stupid error

2013-05-04 21:26:11 -05:00 · 2013-05-04 21:26:11 -05:00 · 350e8184eb
commit 350e8184eb
parent 66824ec9a9
1 changed files with 2 additions and 2 deletions
--- a/collects/racket/syntax.rkt
+++ b/collects/racket/syntax.rkt
@ -77,8 +77,8 @@
    (raise-argument-error 'syntax-local-value/record
                          "identifier?"
                          0 id pred))
-  (unless (and (procedure? id)
-               (procedure-arity-includes? id 1))
+  (unless (and (procedure? pred)
+               (procedure-arity-includes? pred 1))
    (raise-argument-error 'syntax-local-value/record
                          "(-> any/c boolean?)"
                          1 id pred))