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

commit 0bd5ae64c7480fba046fe9345f59fa6a2fec07e9
parent 50dacc432e544c19908a10a47e01a7b1ae59b4cc
Author: Robby Findler <robby@racket-lang.org>
Date:   Wed, 25 Feb 2009 18:18:34 +0000

fixed some bugs that broke the build

svn: r13838

original commit: 0e3b74d12531faaf5acf43e4c133fd8b663f7bb5

Diffstat:
M
collects/scribble/lp/lang/lang.ss
 | 
2
+-
M
collects/scribble/private/lp.ss
 | 
13
++++++++++++-

2 files changed, 13 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/lp/lang/lang.ss b/collects/scribble/lp/lang/lang.ss
@@ -29,7 +29,7 @@
 (define-syntax (tangle stx)
   (define chunk-mentions '())
   (define stupid-internal-definition-sytnax
-    (unless main-id
+    (unless first-id
       (raise-syntax-error 'scribble/lp "no chunks")))
   (define body
     (let loop ([block (if main-id
diff --git a/collects/scribble/private/lp.ss b/collects/scribble/private/lp.ss
@@ -40,7 +40,18 @@
                           (map (lambda (expr)
                                  (syntax-case expr (require)
                                    [(require mod ...)
-                                    #'(mod ...)]
+                                    (let loop ([mods (syntax->list #'(mod ...))])
+                                      (cond
+                                        [(null? mods) null]
+                                        [else 
+                                         (syntax-case (car mods) (for-syntax)
+                                           [(for-syntax x ...)
+                                            (loop (cdr mods))
+                                            #;
+                                            (append (loop (syntax->list #'(x ...)))
+                                                    (loop (cdr mods)))]
+                                           [x
+                                            (cons #'x (loop (cdr mods)))])]))]
                                    [else null]))
                                (syntax->list #'(expr ...)))])
              (syntax-local-lift-require