From e04f0ca3f4f0e98a23b9454b059251bed5e71a24 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 Dec 2007 13:33:13 +0000 Subject: [PATCH] make scribble executable work svn: r7883 original commit: 4d146f1a7b4089c822b68255a19e26d70459a3c2 --- collects/scribble/info.ss | 4 ++-- collects/scribble/run.ss | 2 +- 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 index e796d2cb..6b190494 100644 --- 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 index 1001fe14..3647beca 100644 --- a/collects/scribble/run.ss +++ b/collects/scribble/run.ss @@ -54,7 +54,7 @@ [("++info-in") file "load format-specific link information form " (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 index 5d306a84..fce2f4aa 100644 --- 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))