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

simpify an example

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-12 19:39:37 -06:00
parent 7a2e1aa900
commit a8c0c1f8b7
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/scribblings/reference/stx-trans.scrbl
View File

@ -240,26 +240,24 @@ generated value onto that list.
@transform-time[]
@examples[#:eval stx-eval
(define-syntax do-print
(syntax-rules ()
[(_ x ...) (printf x ...)]))
(define-syntax-rule (do-print x ...)
(printf x ...))
(define-syntax hello
(syntax-rules ()
[(_ x) (do-print "hello ~a" x)]))
(define-syntax-rule (hello x)
(do-print "hello ~a" x))
(define-syntax (show stx)
(syntax-case stx ()
[(_ x)
(with-syntax ([partly-expanded (local-expand #'(hello x)
(let ([partly (local-expand #'(hello x)
'expression
(list #'do-print))]
[expanded (local-expand #'(hello x)
[fully (local-expand #'(hello x)
'expression
#f)])
(printf "partly expanded syntax is ~a\n" (syntax->datum #'partly-expanded))
(printf "expanded syntax is ~a\n" (syntax->datum #'expanded))
#'expanded)]))
(printf "partly expanded: ~s\n" (syntax->datum partly))
(printf "fully expanded: ~s\n" (syntax->datum fully))
fully)]))
(show 1)
]}