suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

redex: fix generate-term error messages

Browse Source
This commit is contained in:
Burke Fetscher 2013-05-04 22:03:27 -05:00
parent b6e4bbdbc8
commit 601640c3b1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/redex/private/generate-term.rkt
View File

@ -329,7 +329,8 @@
(when (keyword? k) (when (keyword? k)
(unless (member k '(#:satisfying #:source #:attempt-num #:retries #:i-th)) (unless (member k '(#:satisfying #:source #:attempt-num #:retries #:i-th))
(raise-syntax-error 'generate-term "unknown keyword" stx x)))))) (raise-syntax-error 'generate-term "unknown keyword" stx x))))))
(define form-name (syntax-e #'orig-name)) (define form-name (with-syntax ([(_ orig-name . args) stx])
(syntax-e #'orig-name)))
(syntax-case stx () (syntax-case stx ()
[(_ orig-name lang pat #:i-th . rest) [(_ orig-name lang pat #:i-th . rest)
(with-syntax ([(pattern (vars ...) (vars/ellipses ...)) (with-syntax ([(pattern (vars ...) (vars/ellipses ...))