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

Rename define-simple-macro to define-syntax-parse-rule

Browse Source 
This PR is based on @lexi-lambda's #1310.
It resolves the conflicts in the mentioned PR and
adjusts the version so that it's up-to-date.
This commit is contained in:
Sorawee Porncharoenwase 2020-10-28 18:25:46 -07:00 committed by Ryan Culpepper
parent 587cff468e
commit c81b628282
2 changed files with 23 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
pkgs/racket-doc/syntax/scribblings/parse/define.scrbl
View File

@ -12,7 +12,7 @@
@defmodule[syntax/parse/define] @defmodule[syntax/parse/define]
@defform[(define-simple-macro (macro-id . pattern) pattern-directive ... @defform[(define-syntax-parse-rule (macro-id . pattern) pattern-directive ...
template)]{ template)]{
Defines a macro named @racket[macro-id]; equivalent to the following: Defines a macro named @racket[macro-id]; equivalent to the following:
@ -26,11 +26,11 @@ Defines a macro named @racket[macro-id]; equivalent to the following:
@(the-eval '(require syntax/parse/define)) @(the-eval '(require syntax/parse/define))
@examples[#:eval the-eval @examples[#:eval the-eval
(define-simple-macro (fn x:id rhs:expr) (lambda (x) rhs)) (define-syntax-parse-rule (fn x:id rhs:expr) (lambda (x) rhs))
((fn x x) 17) ((fn x x) 17)
(fn 1 2) (fn 1 2)
(define-simple-macro (fn2 x y rhs) (define-syntax-parse-rule (fn2 x y rhs)
#:declare x id #:declare x id
#:declare y id #:declare y id
#:declare rhs expr #:declare rhs expr
@ -39,12 +39,7 @@ Defines a macro named @racket[macro-id]; equivalent to the following:
(fn2 a #:b 'c) (fn2 a #:b 'c)
] ]
@history[#:changed "6.12.0.3" @elem{Changed pattern head to @racket[(~var macro-id id)] from @history[#:added "7.9.0.3"]
@racket[macro-id], allowing tilde-prefixed identifiers or
identifiers containing colons to be used as @racket[macro-id]
without producing a syntax error.}
#:changed "6.90.0.29" @elem{Changed to always use the @racket[#:track-literals]
@racket[syntax-parse] option.}]
} }
@defform[(define-syntax-parser macro-id parse-option ... clause ...+)]{ @defform[(define-syntax-parser macro-id parse-option ... clause ...+)]{
@ -68,4 +63,18 @@ Defines a macro named @racket[macro-id]; equivalent to:
(fn3 a #:b 'c) (fn3 a #:b 'c)
]} ]}
@defform[(define-simple-macro (macro-id . pattern) pattern-directive ...
template)]{
@deprecated[#:what "macro" @racket[define-syntax-parse-rule]]
Re-exports @racket[define-syntax-parse-rule] for backward-compatibility.
@history[#:changed "6.12.0.3" @elem{Changed pattern head to @racket[(~var macro-id id)] from
@racket[macro-id], allowing tilde-prefixed identifiers or
identifiers containing colons to be used as @racket[macro-id]
without producing a syntax error.}
#:changed "6.90.0.29" @elem{Changed to always use the @racket[#:track-literals]
@racket[syntax-parse] option.}]
}
@(close-eval the-eval) @(close-eval the-eval)

9
racket/collects/syntax/parse/define.rkt
View File

@ -2,19 +2,20 @@
(require (for-syntax racket/base (require (for-syntax racket/base
syntax/parse syntax/parse
"private/sc.rkt")) "private/sc.rkt"))
(provide define-simple-macro (provide define-syntax-parse-rule
define-syntax-parser define-syntax-parser
(rename-out [define-syntax-parse-rule define-simple-macro])
(for-syntax (all-from-out syntax/parse))) (for-syntax (all-from-out syntax/parse)))
(define-syntax (define-simple-macro stx) (define-syntax (define-syntax-parse-rule stx)
(syntax-parse stx (syntax-parse stx
[(define-simple-macro (macro:id . pattern) . body) [(_ (macro:id . pattern) . body)
#`(define-syntax macro #`(define-syntax macro
(syntax-parser/template (syntax-parser/template
#,((make-syntax-introducer) stx) #,((make-syntax-introducer) stx)
[((~var macro id) . pattern) . body]))])) [((~var macro id) . pattern) . body]))]))
(define-simple-macro (define-syntax-parser macro:id option-or-clause ...) (define-syntax-parse-rule (define-syntax-parser macro:id option-or-clause ...)
(define-syntax macro (define-syntax macro
(syntax-parser option-or-clause ...))) (syntax-parser option-or-clause ...)))