fix Scribble manual bib to refer to scheme.css

svn: r15912

collects/scribble/private/manual-bib.ss

@@ -3,6 +3,8 @@
          "../decode.ss"
          "../struct.ss"
          "../basic.ss"
+         (only-in "../core.ss" make-style)
+         "manual-sprop.ss"
          "manual-utils.ss"
          "manual-style.ss")
 
@@ -62,6 +64,8 @@
      (if date `(" " ,@(decode-content (list date)) ".") null)
      (if url `(" " ,(link url (tt url))) null)))))
 
+(define bib-style (make-style "SBibliography" scheme-properties))
+
 (define (bibliography #:tag [tag "doc-bibliography"] . citations)
   (make-unnumbered-part
    #f
@@ -72,7 +76,7 @@
    (make-flow
     (list
      (make-table
-      "SBibliography"
+      bib-style
       (map (lambda (c)
              (let ([key (a-bib-entry-key c)]
                    [val (a-bib-entry-val c)])

collects/scribble/private/manual-sprop.ss

@@ -0,0 +1,13 @@
+#lang scheme/base
+
+(require "../html-properties.ss"
+         "../latex-properties.ss"
+         setup/main-collects)
+           
+(provide scheme-properties)
+
+(define scheme-properties
+  (let ([abs (lambda (s)
+               (path->main-collects-relative (build-path (collection-path "scribble") s)))])
+    (list (make-css-addition (abs "scheme.css"))
+          (make-tex-addition (abs "scheme.tex")))))

collects/scribble/scheme.ss

@@ -2,11 +2,9 @@
   (require "core.ss"
            "basic.ss"
            "search.ss"
-           "html-properties.ss"
-           "latex-properties.ss"
+           "private/manual-sprop.ss"
            mzlib/class
            mzlib/for
-           setup/main-collects
            syntax/modresolve
            syntax/modcode
            (for-syntax scheme/base))
@@ -54,12 +52,6 @@
                        make-element-id-transformer
                        element-id-transformer?))
 
-  (define scheme-properties
-    (let ([abs (lambda (s)
-                 (path->main-collects-relative (build-path (collection-path "scribble") s)))])
-      (list (make-css-addition (abs "scheme.css"))
-            (make-tex-addition (abs "scheme.tex")))))
-
   (define (make-scheme-style s #:tt? [tt? #t])
     (make-style s (if tt?
                       (cons 'tt-chars scheme-properties)