From 54e7b17c5e8ddee4e2f5d008dfdab59a7af7d5d2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 2 Jul 2012 10:07:52 -0600 Subject: [PATCH] improve error handling for `defproc' Closes PR 12780 original commit: e8d9d4e9ca5149398ead0a3a664405d8aa7a5b70 --- collects/scribble/private/manual-vars.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/scribble/private/manual-vars.rkt b/collects/scribble/private/manual-vars.rkt index 6c1d733b..4707f44c 100644 --- a/collects/scribble/private/manual-vars.rkt +++ b/collects/scribble/private/manual-vars.rkt @@ -104,11 +104,13 @@ (bound-identifier-mapping-put! ht arg #t)) (syntax-case arg () [(kw arg . rest) - (keyword? (syntax-e #'kw)) + (and (keyword? (syntax-e #'kw)) + (identifier? #'arg)) (bound-identifier-mapping-put! ht #'arg #t)] [(arg . rest) (identifier? #'arg) - (bound-identifier-mapping-put! ht #'arg #t)]))) + (bound-identifier-mapping-put! ht #'arg #t)] + [else (void)]))) (cdr s-exp)) (unless (identifier? (car s-exp)) ;; Curried: