From 9eae72a93ace99b080eea225cb92b871a48ad895 Mon Sep 17 00:00:00 2001 From: Samuel Bronson Date: Mon, 1 Oct 2012 23:00:56 -0400 Subject: [PATCH] scribble/private/manual-form: Implement racketgrammar in terms of racketgrammar* This is just a refactoring for readability. original commit: 1dce7e587f2b41f5e10633acbc7c0190f15bd586 --- 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 index e08f1148..18717a24 100644 --- 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 ...] ...)]))