suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix my stupid error

Browse Source
This commit is contained in:
Robby Findler 2013-05-04 21:26:11 -05:00
parent 66824ec9a9
commit 350e8184eb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/syntax.rkt
View File

@ -77,8 +77,8 @@
(raise-argument-error 'syntax-local-value/record (raise-argument-error 'syntax-local-value/record
"identifier?" "identifier?"
0 id pred)) 0 id pred))
(unless (and (procedure? id) (unless (and (procedure? pred)
(procedure-arity-includes? id 1)) (procedure-arity-includes? pred 1))
(raise-argument-error 'syntax-local-value/record (raise-argument-error 'syntax-local-value/record
"(-> any/c boolean?)" "(-> any/c boolean?)"
1 id pred)) 1 id pred))