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

commit 50dacc432e544c19908a10a47e01a7b1ae59b4cc
parent f2b25bc20f7a7a7eca7913c7b125a0fbfa65c7e1
Author: Robby Findler <robby@racket-lang.org>
Date:   Wed, 25 Feb 2009 17:45:06 +0000

svn: r13837

original commit: e36cde06e56a0229f38866c688caf49bc72d0ec9

Diffstat:
M
collects/scribble/latex-render.ss
 | 
1
+
M
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
@@ -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
@@ -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 ()