bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 9eae72a93ace99b080eea225cb92b871a48ad895
parent abeb37b101535454685b8e8d83b7a080b69bab70
Author: Samuel Bronson <naesten@gmail.com>
Date:   Mon,  1 Oct 2012 23:00:56 -0400

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

This is just a refactoring for readability.

original commit: 1dce7e587f2b41f5e10633acbc7c0190f15bd586

Diffstat:
M
collects/scribble/private/manual-form.rkt
 | 
12
+++---------

1 file changed, 3 insertions(+), 9 deletions(-)
diff --git a/collects/scribble/private/manual-form.rkt b/collects/scribble/private/manual-form.rkt
@@ -245,14 +245,7 @@
 (define-syntax racketgrammar
   (syntax-rules ()
     [(_ #:literals (lit ...) id clause ...)
-     (with-racket-variables
-      (lit ...)
-      ([non-term (id clause ...)])
-      (*racketgrammar '(lit ...)
-                      '(id clause ...)
-                      (lambda ()
-                        (list (list (racket id)
-                                    (racketblock0/form clause) ...)))))]
+     (racketgrammar* #:literals (lit ...) [id clause ...])]
     [(_ id clause ...) (racketgrammar #:literals () id clause ...)]))
 
 (define-syntax racketgrammar*
@@ -264,7 +257,8 @@
       (*racketgrammar '(lit ...)
                       '(id ... clause ... ...)
                       (lambda ()
-                        (list (list (racket id) (racketblock0/form clause) ...)
+                        (list (list (racket id)
+                                    (racketblock0/form clause) ...)
                               ...))))]
     [(_ [id clause ...] ...)
      (racketgrammar* #:literals () [id clause ...] ...)]))