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

commit e04f0ca3f4f0e98a23b9454b059251bed5e71a24
parent 94fce663e931ba9e5699c98cf348fd319a48ad6a
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat,  1 Dec 2007 13:33:13 +0000

make scribble executable work

svn: r7883

original commit: 4d146f1a7b4089c822b68255a19e26d70459a3c2

Diffstat:
M
collects/scribble/info.ss
 | 
4
++--
M
collects/scribble/run.ss
 | 
2
+-
M
collects/scribble/text-render.ss
 | 
2
+-

3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/info.ss b/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")))
diff --git a/collects/scribble/run.ss b/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)
diff --git a/collects/scribble/text-render.ss b/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))