From c8bac11d8b97fb672eb8ae03c4546ca4e595e5da Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 13 Feb 2018 22:57:06 -0800 Subject: [PATCH] check for identifier (fixes #15) --- beautiful-racket-lib/br/private/generate-literals.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/beautiful-racket-lib/br/private/generate-literals.rkt b/beautiful-racket-lib/br/private/generate-literals.rkt index 00e953a..a3045b0 100644 --- a/beautiful-racket-lib/br/private/generate-literals.rkt +++ b/beautiful-racket-lib/br/private/generate-literals.rkt @@ -23,9 +23,11 @@ (define (generate-bound-and-unbound-literals pats #:treat-as-bound [bound-id #f]) + (when (and bound-id (not (identifier? bound-id))) + (raise-argument-error 'generate-bound-and-unbound-literals "identifier" bound-id)) (define literals (for/list ([literal (in-list (generate-literals pats))] ; the bound-id should not appear in any literal list - #:unless (bound-identifier=? literal bound-id)) + #:unless (and bound-id (bound-identifier=? literal bound-id))) literal)) (define-values (bound-literals unbound-literals) (partition (λ (i) (or (identifier-binding i)