From 8b5b6a53d97e33b66254a9c26b1cde6333a7af8f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 8 Mar 2009 21:10:07 +0000 Subject: [PATCH] Avoid lumping together output values as (output '(x y z)), use separate output expressions instead. svn: r14015 --- collects/scribble/text/syntax-utils.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/scribble/text/syntax-utils.ss b/collects/scribble/text/syntax-utils.ss index dd14c75dd7..180f0cfbaa 100644 --- a/collects/scribble/text/syntax-utils.ss +++ b/collects/scribble/text/syntax-utils.ss @@ -78,14 +78,16 @@ (define post? (not (null? (syntax-e #'(post ...))))) (define (wrap expr) (if (or pre? post?) - #`(begin #,@(if pre? #'((decor '(pre ...))) #'()) + #`(begin #,@(if pre? #'((decor 'pre) ...) #'()) #,expr - #,@(if post? #'((decor '(post ...))) #'())) + #,@(if post? #'((decor 'post) ...) #'())) expr)) (cond [(begin?->list expr*) => (lambda (xs) (if (null? xs) - (if (or pre? post?) #'(decor '(pre ... post ...)) expr*) + (if (or pre? post?) + #'(begin (decor 'pre) ... (decor 'post) ...) + expr*) #`(process-begin/text begin decor pre ... #,@xs post ...)))] [(definition? expr*) expr*] ; dump pre/post