fixed some bugs that broke the build

svn: r13838

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

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