suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

make scribble executable work

Browse Source 
svn: r7883

original commit: 4d146f1a7b4089c822b68255a19e26d70459a3c2
This commit is contained in:
Matthew Flatt 2007-12-01 13:33:13 +00:00
parent 94fce663e9
commit e04f0ca3f4
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/info.ss
View File

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

2
collects/scribble/run.ss
View File

@ -54,7 +54,7 @@
[("++info-in") file "load format-specific link information form <file>" [("++info-in") file "load format-specific link information form <file>"
(current-info-input-files (current-info-input-files
(cons 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) (define (build-docs-files files)
(build-docs (map (lambda (file) (build-docs (map (lambda (file)

2
collects/scribble/text-render.ss
View File

@ -18,7 +18,7 @@
render-flow-element) render-flow-element)
(define/override (render-part d ht) (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) (when (or (ormap values number)
(part-title-content d)) (part-title-content d))
(newline)) (newline))