suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

scribble/private/manual-form: Implement racketgrammar in terms of racketgrammar*

Browse Source 
This is just a refactoring for readability.

original commit: 1dce7e587f2b41f5e10633acbc7c0190f15bd586
This commit is contained in:
Samuel Bronson 2012-10-01 23:00:56 -04:00 committed by Matthew Flatt
parent abeb37b101
commit 9eae72a93a
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scribble/private/manual-form.rkt
View File

@ -245,14 +245,7 @@
(define-syntax racketgrammar (define-syntax racketgrammar
(syntax-rules () (syntax-rules ()
[(_ #:literals (lit ...) id clause ...) [(_ #:literals (lit ...) id clause ...)
(with-racket-variables (racketgrammar* #:literals (lit ...) [id clause ...])]
(lit ...)
([non-term (id clause ...)])
(*racketgrammar '(lit ...)
'(id clause ...)
(lambda ()
(list (list (racket id)
(racketblock0/form clause) ...)))))]
[(_ id clause ...) (racketgrammar #:literals () id clause ...)])) [(_ id clause ...) (racketgrammar #:literals () id clause ...)]))
(define-syntax racketgrammar* (define-syntax racketgrammar*
@ -264,7 +257,8 @@
(*racketgrammar '(lit ...) (*racketgrammar '(lit ...)
'(id ... clause ... ...) '(id ... clause ... ...)
(lambda () (lambda ()
(list (list (racket id) (racketblock0/form clause) ...) (list (list (racket id)
(racketblock0/form clause) ...)
...))))] ...))))]
[(_ [id clause ...] ...) [(_ [id clause ...] ...)
(racketgrammar* #:literals () [id clause ...] ...)])) (racketgrammar* #:literals () [id clause ...] ...)]))