Add identifier? check to place macro

2011-07-07 13:45:18 -06:00 · 2011-07-07 13:45:18 -06:00 · 5d66e52fcc
commit 5d66e52fcc
parent 3b33ed8c81
1 changed files with 2 additions and 0 deletions
--- a/collects/racket/place.rkt
+++ b/collects/racket/place.rkt
@ -146,6 +146,8 @@
 (define-for-syntax (gen-create-place stx)
 (syntax-case stx ()
   [(_ ch body ...)
+     (unless (identifier? #'ch)
+          (raise-syntax-error #f "expected an indentifier" stx #'ch))
     (with-syntax ([interal-def-name
                    (syntax-local-lift-expression #'(lambda (ch) body ...))]
                   [funcname (datum->syntax stx (generate-temporary #'place/anon))])