make scribble executable work

svn: r7883

original commit: 4d146f1a7b4089c822b68255a19e26d70459a3c2

collects/scribble/info.ss

@@ -1,6 +1,6 @@
 (module info setup/infotab
   (define name "Scribble")
-  (define blurb '("MzScheme extensions for writing text."))
+  (define blurb '("Text and documention typesetting."))
   (define mzscheme-launcher-names '("scribble"))
-  (define mzscheme-launcher-libraries '("run-scribble.ss"))
+  (define mzscheme-launcher-libraries '("scribble.ss"))
   (define compile-omit-files '("test-reader.ss")))

collects/scribble/run.ss

@@ -54,7 +54,7 @@
       [("++info-in") file "load format-specific link information form <file>"
        (current-info-input-files
         (cons file (current-info-input-files)))]]
-     [args file file]))
+     [args (file . another-file) (cons file another-file)]))
 
   (define (build-docs-files files)
     (build-docs (map (lambda (file)

collects/scribble/text-render.ss

@@ -18,7 +18,7 @@
                render-flow-element)
 
       (define/override (render-part d ht)
-        (let ([number (collected-info-number (part-collected-info d))])
+        (let ([number (collected-info-number (part-collected-info d ht))])
           (when (or (ormap values number)
                     (part-title-content d))
             (newline))