From 50dacc432e544c19908a10a47e01a7b1ae59b4cc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 25 Feb 2009 17:45:06 +0000 Subject: [PATCH] svn: r13837 original commit: e36cde06e56a0229f38866c688caf49bc72d0ec9 --- collects/scribble/latex-render.ss | 1 + collects/scribble/private/lp.ss | 8 ++++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss index d43fcc81..d79d5027 100644 --- a/collects/scribble/latex-render.ss +++ b/collects/scribble/latex-render.ss @@ -417,6 +417,7 @@ [(#\u039B) "$\\Lambda$"] [(#\u03BC) "$\\mu$"] [(#\u03C0) "$\\pi$"] + [(#\∞) "$\\infty$"] [else c]))) (loop (add1 i)))))) diff --git a/collects/scribble/private/lp.ss b/collects/scribble/private/lp.ss index 092d59aa..3d266d4c 100644 --- a/collects/scribble/private/lp.ss +++ b/collects/scribble/private/lp.ss @@ -23,7 +23,7 @@ (identifier? #'name) (let ([n (get-chunk-number (syntax-local-introduce #'name) #f)] [str (symbol->string (syntax-e #'name))]) - + (syntax-local-lift-expression #'(quote-syntax (a-chunk name expr ...))) (if (n . > . 1) @@ -43,9 +43,9 @@ #'(mod ...)] [else null])) (syntax->list #'(expr ...)))]) + (syntax-local-lift-require + #'(for-label for-label-mod ... ...) #`(begin - (require (for-label for-label-mod ... ...)) - ;; why does this happen twice? (define-syntax name (make-element-id-transformer (lambda (stx) #'(chunkref name)))) (begin-for-syntax (register-chunk-name #'name)) @@ -56,7 +56,7 @@ (bold (italic (scheme name)) " ::="))) (list (smaller (elemref '(chunk tag) #:underline? #f str)))) - (schemeblock expr ...)))))))])) + (schemeblock expr ...))))))))])) (define-syntax (chunkref stx) (syntax-case stx ()