From 350e8184eb6c55506b90db7c451142a7d95e0f21 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 4 May 2013 21:26:11 -0500 Subject: [PATCH] fix my stupid error --- collects/racket/syntax.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/racket/syntax.rkt b/collects/racket/syntax.rkt index 02ed9f389f..8c19c0e936 100644 --- 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))