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

tiny refactoring

Browse Source
This commit is contained in:
Matthew Butterick 2016-04-26 13:53:35 -07:00
parent f4b52138f3
commit 509c9000ab
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
beautiful-racket-lib/br/define.rkt
View File

@ -200,15 +200,14 @@
(define+provide arg ...))
(define-for-syntax (expand-macro mac)
(syntax-disarm (local-expand mac 'expression #f) #f))
(br:define #'(define-inverting (syntax (_id . _patargs)) _syntaxexpr)
#'(define-syntax (_id stx)
(let ()
(define (expand-macro mac)
(syntax-disarm (local-expand mac 'expression #f) #f))
(syntax-case stx ()
[(_ . rest)
(with-syntax ([_patargs (map expand-macro (syntax->list #'rest))])
_syntaxexpr)]))))
#'(br:define (syntax (_id . rest))
(with-syntax ([_patargs (map expand-macro (syntax->list #'rest))])
_syntaxexpr)))
(module+ test
;; an inverting macro expands its arguments.