fix doc install, especially 'quick' when dir isn't yet there

svn: r7908

original commit: 36aaee1b1226014c099327683c7a3296070723f6

collects/scribble/base-render.ss

@@ -404,6 +404,7 @@
                                                 #t
                                                 (loop)))))))))))
               (when (file-exists? dest-file) (delete-file dest-file))
+              (make-directory* (path-only dest-file))
               (copy-file src-file dest-file))
             (path->string fn))))
 

collects/scribble/manual.ss

@@ -1400,7 +1400,13 @@
                                              (loop (cdr form)))]
                        [else null]))])
       (let ([l (clauseses-thunk)])
-        (*schemerawgrammars #f (map car l) (map cdr l)))))
+        (*schemerawgrammars #f 
+                            (map (lambda (x)
+                                   (make-element #f
+                                                 (list (hspace 2)
+                                                       (car x))))
+                                 l)
+                            (map cdr l)))))
 
   (define (*var id)
     (to-element (*var-sym id)))