mbutterick
/
beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

check for identifier (fixes #15)

Browse Source
v6.3-exception
Matthew Butterick 7 years ago
parent 33acb10b31
commit c8bac11d8b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File

4
beautiful-racket-lib/br/private/generate-literals.rkt
Unescape Escape View File

@ -23,9 +23,11 @@
(define (generate-bound-and-unbound-literals pats #:treat-as-bound [bound-id #f]) (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))] (define literals (for/list ([literal (in-list (generate-literals pats))]
; the bound-id should not appear in any literal list ; 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)) literal))
(define-values (bound-literals unbound-literals) (define-values (bound-literals unbound-literals)
(partition (λ (i) (or (identifier-binding i) (partition (λ (i) (or (identifier-binding i)

Write Preview
Loading…
Cancel
Save