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

".ss" -> ".rkt" scan done.

Browse Source 
original commit: 3157955d40f89d83fb3d5fa7a2f20639cda69579
This commit is contained in:
Eli Barzilay 2011-07-02 10:37:53 -04:00
parent b8556478f5
commit 45a9cd48c2
51 changed files with 214 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/help/help.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require "search.ss" scheme/cmdline scheme/list scheme/string (require "search.rkt" scheme/cmdline scheme/list scheme/string
raco/command-name) raco/command-name)
;; Minimal command-line arguments, the query string can contain all ;; Minimal command-line arguments, the query string can contain all

6
collects/scribble/base-render.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require "core.ss" (require "core.rkt"
"private/render-utils.ss" "private/render-utils.rkt"
mzlib/class mzlib/class
mzlib/serialize mzlib/serialize
scheme/file scheme/file
@ -9,7 +9,7 @@
setup/main-collects setup/main-collects
setup/path-relativize setup/path-relativize
file/convertible file/convertible
"render-struct.ss") "render-struct.rkt")
(provide render%) (provide render%)

10
collects/scribble/base.rkt
View File

@ -1,10 +1,10 @@
#lang scheme/base #lang scheme/base
(require "decode.ss" (require "decode.rkt"
"core.ss" "core.rkt"
"manual-struct.ss" "manual-struct.rkt"
"decode-struct.ss" "decode-struct.rkt"
"html-properties.ss" "html-properties.rkt"
scheme/list scheme/list
scheme/class scheme/class
scheme/contract scheme/contract

6
collects/scribble/basic.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base #lang scheme/base
(require "base.ss" (require "base.rkt"
"core.ss" "core.rkt"
"decode.ss") "decode.rkt")
(provide title (provide title
section section

5
collects/scribble/bnf.rkt
View File

@ -1,7 +1,6 @@
(module bnf mzscheme (module bnf mzscheme
(require "struct.ss" (require "struct.rkt"
"decode.ss" "decode.rkt"
mzlib/kw mzlib/kw
mzlib/class) mzlib/class)

2
collects/scribble/core.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base #lang scheme/base
(require "private/provide-structs.ss" (require "private/provide-structs.rkt"
scheme/serialize scheme/serialize
scheme/contract scheme/contract
file/convertible) file/convertible)

4
collects/scribble/decode-struct.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require "core.ss" (require "core.rkt"
"private/provide-structs.ss") "private/provide-structs.rkt")
(provide-structs (provide-structs
[part-index-desc ()]) [part-index-desc ()])

6
collects/scribble/decode.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require "core.ss" (require "core.rkt"
"private/provide-structs.ss" "private/provide-structs.rkt"
"decode-struct.ss" "decode-struct.rkt"
scheme/contract scheme/contract
scheme/class scheme/class
scheme/list) scheme/list)

4
collects/scribble/doclang.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require "struct.ss" (require "struct.rkt"
"decode.ss" "decode.rkt"
(for-syntax racket/base (for-syntax racket/base
syntax/kerncase)) syntax/kerncase))

2
collects/scribble/eval.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require "manual.ss" "struct.ss" "scheme.ss" "decode.ss" (require "manual.rkt" "struct.rkt" "scheme.rkt" "decode.rkt"
racket/string racket/list racket/file racket/string racket/list racket/file
racket/sandbox racket/promise racket/port file/convertible racket/sandbox racket/promise racket/port file/convertible
(for-syntax racket/base)) (for-syntax racket/base))

2
collects/scribble/html-properties.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base #lang scheme/base
(require "private/provide-structs.ss" (require "private/provide-structs.rkt"
scheme/contract) scheme/contract)
(provide-structs (provide-structs

10
collects/scribble/html-render.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base #lang scheme/base
(require "core.ss" (require "core.rkt"
"private/render-utils.ss" "private/render-utils.rkt"
"html-properties.ss" "html-properties.rkt"
scheme/class scheme/class
scheme/path scheme/path
scheme/file scheme/file
@ -19,8 +19,8 @@
scheme/serialize scheme/serialize
(prefix-in xml: xml/xml) (prefix-in xml: xml/xml)
(for-syntax scheme/base) (for-syntax scheme/base)
"search.ss" "search.rkt"
(except-in "base.ss" url)) (except-in "base.rkt" url))
(provide render-mixin (provide render-mixin
render-multi-mixin) render-multi-mixin)

3
collects/scribble/info.rkt
View File

@ -1,8 +1,7 @@
#lang setup/infotab #lang setup/infotab
(define mzscheme-launcher-names '("scribble")) (define mzscheme-launcher-names '("scribble"))
(define mzscheme-launcher-libraries '("run.ss")) (define mzscheme-launcher-libraries '("run.rkt"))
(define compile-omit-paths '("test-reader.ss"))
(define raco-commands (define raco-commands
'(("scribble" scribble/run "render a Scribble document" #f))) '(("scribble" scribble/run "render a Scribble document" #f)))

2
collects/scribble/jfp/lang.rkt
View File

@ -4,7 +4,7 @@
(except-in scribble/base author) (except-in scribble/base author)
scribble/decode scribble/decode
scribble/jfp scribble/jfp
"../private/defaults.ss" "../private/defaults.rkt"
(for-syntax scheme/base)) (for-syntax scheme/base))
(provide (except-out (all-from-out scribble/doclang) #%module-begin) (provide (except-out (all-from-out scribble/doclang) #%module-begin)
(all-from-out scribble/jfp) (all-from-out scribble/jfp)

2
collects/scribble/latex-properties.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base #lang scheme/base
(require "private/provide-structs.ss" (require "private/provide-structs.rkt"
scheme/contract) scheme/contract)
(provide-structs (provide-structs

6
collects/scribble/latex-render.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base #lang scheme/base
(require "core.ss" (require "core.rkt"
"latex-properties.ss" "latex-properties.rkt"
"private/render-utils.ss" "private/render-utils.rkt"
scheme/class scheme/class
scheme/runtime-path scheme/runtime-path
scheme/port scheme/port

2
collects/scribble/lncs/lang.rkt
View File

@ -4,7 +4,7 @@
(except-in scribble/base author) (except-in scribble/base author)
(prefix-in s/b: scribble/base) (prefix-in s/b: scribble/base)
scribble/decode scribble/decode
"../private/defaults.ss" "../private/defaults.rkt"
(for-syntax racket/base racket/list) (for-syntax racket/base racket/list)
setup/main-collects setup/main-collects
scribble/html-properties scribble/html-properties

4
collects/scribble/manual-struct.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require "core.ss" (require "core.rkt"
"private/provide-structs.ss" "private/provide-structs.rkt"
scheme/contract) scheme/contract)
(provide-structs (provide-structs

51
collects/scribble/manual.rkt
View File

@ -1,33 +1,32 @@
#lang scheme/base #lang scheme/base
(require "base.ss" (require "base.rkt"
"private/manual-style.ss" "private/manual-style.rkt"
"private/manual-scheme.ss" "private/manual-scheme.rkt"
"private/manual-code.ss" "private/manual-code.rkt"
"private/manual-mod.ss" "private/manual-mod.rkt"
"private/manual-tech.ss" "private/manual-tech.rkt"
"private/manual-bib.ss" "private/manual-bib.rkt"
"private/manual-proc.ss" "private/manual-proc.rkt"
"private/manual-form.ss" "private/manual-form.rkt"
"private/manual-class.ss" "private/manual-class.rkt"
"private/manual-unit.ss" "private/manual-unit.rkt"
"private/manual-vars.ss" "private/manual-vars.rkt"
"private/manual-bind.ss") "private/manual-bind.rkt")
(provide unsyntax (provide unsyntax
make-binding-redirect-elements make-binding-redirect-elements
defidentifier defidentifier
(all-from-out "base.ss" (all-from-out "base.rkt"
"private/manual-style.ss" "private/manual-style.rkt"
"private/manual-scheme.ss" "private/manual-scheme.rkt"
"private/manual-code.ss" "private/manual-code.rkt"
"private/manual-mod.ss" "private/manual-mod.rkt"
"private/manual-tech.ss" "private/manual-tech.rkt"
"private/manual-bib.ss" "private/manual-bib.rkt"
"private/manual-form.ss" "private/manual-form.rkt"
"private/manual-class.ss" "private/manual-class.rkt"
"private/manual-unit.ss") "private/manual-unit.rkt")
(except-out (all-from-out "private/manual-vars.ss") (except-out (all-from-out "private/manual-vars.rkt")
*deftogether) *deftogether)
(except-out (all-from-out "private/manual-proc.ss") (except-out (all-from-out "private/manual-proc.rkt")
*defthing)) *defthing))

2
collects/scribble/manual/lang.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require scribble/doclang (require scribble/doclang
scribble/manual scribble/manual
"../private/defaults.ss") "../private/defaults.rkt")
(provide (except-out (all-from-out scribble/doclang) #%module-begin) (provide (except-out (all-from-out scribble/doclang) #%module-begin)
(all-from-out scribble/manual) (all-from-out scribble/manual)
(rename-out [module-begin #%module-begin])) (rename-out [module-begin #%module-begin]))

4
collects/scribble/pdf-render.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require "private/indirect-renderer.ss" "private/run-pdflatex.ss" (require "private/indirect-renderer.rkt" "private/run-pdflatex.rkt"
(prefix-in latex: "latex-render.ss")) (prefix-in latex: "latex-render.rkt"))
(provide render-mixin) (provide render-mixin)

16
collects/scribble/private/manual-bib.rkt
View File

@ -1,13 +1,13 @@
#lang scheme/base #lang scheme/base
(require scheme/contract (require scheme/contract
"../decode.ss" "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../basic.ss" "../basic.rkt"
"on-demand.ss" "on-demand.rkt"
(only-in "../core.ss" make-style) (only-in "../core.rkt" make-style)
"manual-sprop.ss" "manual-sprop.rkt"
"manual-utils.ss" "manual-utils.rkt"
"manual-style.ss") "manual-style.rkt")
(define-struct a-bib-entry (key val)) (define-struct a-bib-entry (key val))

14
collects/scribble/private/manual-bind.rkt
View File

@ -1,11 +1,11 @@
#lang scheme/base #lang scheme/base
(require "../decode.ss" (require "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../scheme.ss" "../scheme.rkt"
"../search.ss" "../search.rkt"
"../basic.ss" "../basic.rkt"
"../manual-struct.ss" "../manual-struct.rkt"
"manual-ex.ss" "manual-ex.rkt"
scheme/string scheme/string
scheme/contract scheme/contract
scheme/list scheme/list

30
collects/scribble/private/manual-class.rkt
View File

@ -1,21 +1,21 @@
#lang scheme/base #lang scheme/base
(require "../decode.ss" (require "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../scheme.ss" "../scheme.rkt"
"../search.ss" "../search.rkt"
"../basic.ss" "../basic.rkt"
"../manual-struct.ss" "../manual-struct.rkt"
"qsloc.ss" "qsloc.rkt"
scheme/serialize scheme/serialize
scheme/stxparam scheme/stxparam
"manual-utils.ss" "manual-utils.rkt"
"manual-vars.ss" "manual-vars.rkt"
"manual-style.ss" "manual-style.rkt"
"manual-scheme.ss" "manual-scheme.rkt"
"manual-bind.ss" "manual-bind.rkt"
"manual-method.ss" "manual-method.rkt"
"manual-proc.ss" "manual-proc.rkt"
"manual-ex.ss" "manual-ex.rkt"
scheme/string scheme/string
scheme/list scheme/list
(for-syntax scheme/base) (for-syntax scheme/base)

2
collects/scribble/private/manual-ex.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base #lang scheme/base
(require "../struct.ss") (require "../struct.rkt")
; XXX unknown contracts ; XXX unknown contracts
(provide (struct-out exporting-libraries) (provide (struct-out exporting-libraries)

28
collects/scribble/private/manual-form.rkt
View File

@ -1,18 +1,18 @@
#lang scheme/base #lang scheme/base
(require "../decode.ss" (require "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../scheme.ss" "../scheme.rkt"
"../search.ss" "../search.rkt"
"../basic.ss" "../basic.rkt"
"../manual-struct.ss" "../manual-struct.rkt"
"qsloc.ss" "qsloc.rkt"
"manual-utils.ss" "manual-utils.rkt"
"manual-vars.ss" "manual-vars.rkt"
"manual-style.ss" "manual-style.rkt"
"manual-scheme.ss" "manual-scheme.rkt"
"manual-bind.ss" "manual-bind.rkt"
"manual-method.ss" "manual-method.rkt"
"manual-ex.ss" "manual-ex.rkt"
scheme/string scheme/string
scheme/list scheme/list
(for-syntax scheme/base) (for-syntax scheme/base)

10
collects/scribble/private/manual-method.rkt
View File

@ -1,9 +1,9 @@
#lang scheme/base #lang scheme/base
(require "../struct.ss" (require "../struct.rkt"
"../search.ss" "../search.rkt"
"../scheme.ss" "../scheme.rkt"
"../basic.ss" "../basic.rkt"
"manual-scheme.ss" "manual-scheme.rkt"
(for-syntax scheme/base)) (for-syntax scheme/base))
(provide ;; public: (provide ;; public:

14
collects/scribble/private/manual-mod.rkt
View File

@ -1,11 +1,11 @@
#lang scheme/base #lang scheme/base
(require "../decode.ss" (require "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../basic.ss" "../basic.rkt"
"../manual-struct.ss" "../manual-struct.rkt"
"manual-ex.ss" "manual-ex.rkt"
"manual-style.ss" "manual-style.rkt"
"manual-scheme.ss" "manual-scheme.rkt"
scheme/string scheme/string
scheme/list scheme/list
(for-syntax scheme/base) (for-syntax scheme/base)

30
collects/scribble/private/manual-proc.rkt
View File

@ -1,19 +1,19 @@
#lang racket/base #lang racket/base
(require "../decode.ss" (require "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../scheme.ss" "../scheme.rkt"
"../search.ss" "../search.rkt"
"../basic.ss" "../basic.rkt"
"../manual-struct.ss" "../manual-struct.rkt"
"qsloc.ss" "qsloc.rkt"
"manual-utils.ss" "manual-utils.rkt"
"manual-vars.ss" "manual-vars.rkt"
"manual-style.ss" "manual-style.rkt"
"manual-scheme.ss" "manual-scheme.rkt"
"manual-bind.ss" "manual-bind.rkt"
"manual-method.ss" "manual-method.rkt"
"manual-ex.ss" "manual-ex.rkt"
"on-demand.ss" "on-demand.rkt"
scheme/string scheme/string
scheme/list scheme/list
(for-syntax racket/base) (for-syntax racket/base)

14
collects/scribble/private/manual-scheme.rkt
View File

@ -1,12 +1,12 @@
#lang racket/base #lang racket/base
(require "../decode.ss" (require "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../scheme.ss" "../scheme.rkt"
"../search.ss" "../search.rkt"
"../basic.ss" "../basic.rkt"
racket/list racket/list
"manual-utils.ss" "manual-utils.rkt"
"manual-style.ss" "manual-style.rkt"
(for-syntax racket/base) (for-syntax racket/base)
(for-label racket/base)) (for-label racket/base))

6
collects/scribble/private/manual-sprop.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base #lang scheme/base
(require "../html-properties.ss" (require "../html-properties.rkt"
"../latex-properties.ss" "../latex-properties.rkt"
"on-demand.ss" "on-demand.rkt"
setup/main-collects setup/main-collects
scheme/promise) scheme/promise)

16
collects/scribble/private/manual-style.rkt
View File

@ -1,14 +1,14 @@
#lang racket/base #lang racket/base
(require "../decode.ss" (require "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../base.ss" "../base.rkt"
(only-in "../basic.ss" aux-elem itemize) (only-in "../basic.rkt" aux-elem itemize)
"../scheme.ss" "../scheme.rkt"
(only-in "../core.ss" make-style plain (only-in "../core.rkt" make-style plain
make-nested-flow make-nested-flow
[element? core:element?]) [element? core:element?])
"manual-utils.ss" "manual-utils.rkt"
"on-demand.ss" "on-demand.rkt"
"manual-sprop.rkt" "manual-sprop.rkt"
racket/list racket/list
racket/contract racket/contract

10
collects/scribble/private/manual-tech.rkt
View File

@ -1,10 +1,10 @@
#lang scheme/base #lang scheme/base
(require scheme/contract (require scheme/contract
"../decode.ss" "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../basic.ss" "../basic.rkt"
"manual-utils.ss" "manual-utils.rkt"
"manual-style.ss") "manual-style.rkt")
(provide/contract (provide/contract
[deftech (() (#:style? boolean?) #:rest (listof pre-content?) . ->* . element?)] [deftech (() (#:style? boolean?) #:rest (listof pre-content?) . ->* . element?)]

24
collects/scribble/private/manual-unit.rkt
View File

@ -1,16 +1,16 @@
#lang scheme/base #lang scheme/base
(require "../decode.ss" (require "../decode.rkt"
"../struct.ss" "../struct.rkt"
"../scheme.ss" "../scheme.rkt"
"../search.ss" "../search.rkt"
"../basic.ss" "../basic.rkt"
"manual-utils.ss" "manual-utils.rkt"
"manual-vars.ss" "manual-vars.rkt"
"manual-style.ss" "manual-style.rkt"
"manual-scheme.ss" "manual-scheme.rkt"
"manual-bind.ss" "manual-bind.rkt"
"manual-ex.ss" "manual-ex.rkt"
"manual-proc.ss" "manual-proc.rkt"
scheme/contract scheme/contract
(for-syntax scheme/base) (for-syntax scheme/base)
(for-label scheme/base)) (for-label scheme/base))

8
collects/scribble/private/manual-utils.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base #lang scheme/base
(require "../struct.ss" (require "../struct.rkt"
"../decode.ss" "../decode.rkt"
"../base.ss" "../base.rkt"
(only-in "../core.ss" (only-in "../core.rkt"
content?) content?)
scheme/contract scheme/contract
scheme/list) scheme/list)

8
collects/scribble/private/manual-vars.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base #lang scheme/base
(require "../decode.ss" (require "../decode.rkt"
"../scheme.ss" "../scheme.rkt"
"../struct.ss" "../struct.rkt"
(only-in "../core.ss" style-name) (only-in "../core.rkt" style-name)
scheme/contract scheme/contract
(for-syntax scheme/base (for-syntax scheme/base
syntax/kerncase syntax/kerncase

2
collects/scribble/private/render-utils.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base #lang scheme/base
(require "../core.ss") (require "../core.rkt")
(provide part-style? (provide part-style?
select-suffix select-suffix

10
collects/scribble/racket.rkt
View File

@ -1,9 +1,9 @@
(module racket racket/base (module racket racket/base
(require "core.ss" (require "core.rkt"
"basic.ss" "basic.rkt"
"search.ss" "search.rkt"
"private/manual-sprop.ss" "private/manual-sprop.rkt"
"private/on-demand.ss" "private/on-demand.rkt"
mzlib/class mzlib/class
mzlib/for mzlib/for
syntax/modresolve syntax/modresolve

14
collects/scribble/run.rkt
View File

@ -1,16 +1,16 @@
#lang racket/base #lang racket/base
(require "core.ss" (require "core.rkt"
"base-render.ss" "base-render.rkt"
"xref.ss" "xref.rkt"
scheme/cmdline scheme/cmdline
scheme/file scheme/file
scheme/class scheme/class
raco/command-name raco/command-name
(prefix-in text: "text-render.ss") (prefix-in text: "text-render.rkt")
(prefix-in html: "html-render.ss") (prefix-in html: "html-render.rkt")
(prefix-in latex: "latex-render.ss") (prefix-in latex: "latex-render.rkt")
(prefix-in pdf: "pdf-render.ss")) (prefix-in pdf: "pdf-render.rkt"))
(define multi-html:render-mixin (define multi-html:render-mixin
(lambda (%) (html:render-multi-mixin (html:render-mixin %)))) (lambda (%) (html:render-multi-mixin (html:render-mixin %))))

4
collects/scribble/scheme.rkt
View File

@ -1,3 +1,3 @@
#lang racket/base #lang racket/base
(require "racket.ss") (require "racket.rkt")
(provide (all-from-out "racket.ss")) (provide (all-from-out "racket.rkt"))

4
collects/scribble/search.rkt
View File

@ -1,6 +1,6 @@
(module search racket/base (module search racket/base
(require "struct.ss" (require "struct.rkt"
"basic.ss" "basic.rkt"
setup/main-collects setup/main-collects
syntax/modcode) syntax/modcode)

2
collects/scribble/sigplan/lang.rkt
View File

@ -5,7 +5,7 @@
scribble/decode scribble/decode
scribble/sigplan scribble/sigplan
racket/list racket/list
"../private/defaults.ss" "../private/defaults.rkt"
(for-syntax scheme/base)) (for-syntax scheme/base))
(provide (except-out (all-from-out scribble/doclang) #%module-begin) (provide (except-out (all-from-out scribble/doclang) #%module-begin)
(all-from-out scribble/sigplan) (all-from-out scribble/sigplan)

2
collects/scribble/srcdoc.rkt
View File

@ -2,7 +2,7 @@
(require scheme/contract (require scheme/contract
(for-syntax scheme/base) (for-syntax scheme/base)
"provide-doc-transform.ss") "provide-doc-transform.rkt")
(provide require/doc (provide require/doc
provide/doc provide/doc

6
collects/scribble/struct.rkt
View File

@ -1,10 +1,10 @@
#lang scheme/base #lang scheme/base
(require (rename-in (except-in "core.ss" (require (rename-in (except-in "core.rkt"
target-url struct:target-url target-url? target-url-addr target-url struct:target-url target-url? target-url-addr
deserialize-info:target-url-v0) deserialize-info:target-url-v0)
[make-target-url core:make-target-url]) [make-target-url core:make-target-url])
"private/provide-structs.ss" "private/provide-structs.rkt"
"html-properties.ss" "html-properties.rkt"
scheme/provide-syntax scheme/provide-syntax
scheme/struct-info scheme/struct-info
scheme/contract scheme/contract

3
collects/scribble/text-render.rkt
View File

@ -1,6 +1,5 @@
(module text-render racket/base (module text-render racket/base
(require "core.ss" (require "core.rkt"
racket/class racket/class
racket/port) racket/port)
(provide render-mixin) (provide render-mixin)

4
collects/scribble/text/lang.rkt
View File

@ -1,9 +1,9 @@
#lang racket/base #lang racket/base
(require "syntax-utils.ss" "output.ss" (require "syntax-utils.rkt" "output.rkt"
racket/promise racket/list racket/string) racket/promise racket/list racket/string)
(provide (except-out (all-from-out racket/base) #%module-begin) (provide (except-out (all-from-out racket/base) #%module-begin)
(all-from-out "output.ss" racket/promise racket/list racket/string) (all-from-out "output.rkt" racket/promise racket/list racket/string)
(rename-out [module-begin/text #%module-begin] (rename-out [module-begin/text #%module-begin]
[begin/text text] [include/text include])) [begin/text text] [include/text include]))

4
collects/scribble/text/main.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require "output.ss" "syntax-utils.ss" (require "output.rkt" "syntax-utils.rkt"
racket/promise racket/list racket/string) racket/promise racket/list racket/string)
(provide (all-from-out "output.ss" racket/promise racket/list racket/string) (provide (all-from-out "output.rkt" racket/promise racket/list racket/string)
begin/text include/text) begin/text include/text)

4
collects/scribble/text/syntax-utils.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require "output.ss" (for-syntax scheme/base syntax/kerncase)) (require "output.rkt" (for-syntax scheme/base syntax/kerncase))
(provide module-begin/text begin/text include/text begin/collect (provide module-begin/text begin/text include/text begin/collect
process-begin/text) process-begin/text)
@ -172,7 +172,7 @@
#'(process-begin/text begin/collect begin expr ...)])) #'(process-begin/text begin/collect begin expr ...)]))
;; include for templates ;; include for templates
(require (for-syntax scheme/base (prefix-in scribble: "../reader.ss")) (require (for-syntax scheme/base (prefix-in scribble: "../reader.rkt"))
scheme/include) scheme/include)
(define-syntax-rule (include/text path-spec) (define-syntax-rule (include/text path-spec)
(begin/text (begin/text

2
collects/scriblib/figure.rkt
View File

@ -6,7 +6,7 @@
scribble/html-properties scribble/html-properties
scribble/latex-properties scribble/latex-properties
setup/main-collects setup/main-collects
"private/counter.ss") "private/counter.rkt")
(provide figure (provide figure
figure* figure*

2
collects/scriblib/footnote.rkt
View File

@ -6,7 +6,7 @@
scribble/latex-properties scribble/latex-properties
racket/promise racket/promise
setup/main-collects setup/main-collects
"private/counter.ss") "private/counter.rkt")
(provide note (provide note
define-footnote) define-footnote)

2
collects/scriblib/gui-eval.rkt
View File

@ -7,7 +7,7 @@
racket/file racket/file
racket/runtime-path racket/runtime-path
racket/serialize racket/serialize
"private/gui-eval-exn.ss" "private/gui-eval-exn.rkt"
racket/system racket/system
racket/sandbox racket/sandbox
(for-syntax racket/base)) (for-syntax racket/base))