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

commit 340e25d13e41b9acb0af220615d2bdfa8551f8d3
parent 57304714b13beedce99dd9dd6c61e27845077854
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Wed, 21 Apr 2010 13:38:04 -0600

rico -> racket-tool

original commit: c862eb8121be398c3741b1f68e3b3fbb224d92d9

Diffstat:
M
collects/scribble/info.ss
 | 
4
++++
M
collects/scribble/run.ss
 | 
2
++
M
collects/scriblib/autobib.ss
 | 
2
+-

3 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/info.ss b/collects/scribble/info.ss
@@ -3,3 +3,7 @@
 (define mzscheme-launcher-names '("scribble"))
 (define mzscheme-launcher-libraries '("run.ss"))
 (define compile-omit-paths '("test-reader.ss"))
+
+(define racket-tools
+  '(("scribble" scribble/run "render scribble" #f)))
+
diff --git a/collects/scribble/run.ss b/collects/scribble/run.ss
@@ -6,6 +6,7 @@
          scheme/cmdline
          scheme/file
          scheme/class
+         tool/command-name
          (prefix-in text:  "text-render.ss")
          (prefix-in html:  "html-render.ss")
          (prefix-in latex: "latex-render.ss")
@@ -35,6 +36,7 @@
 
 (define (run)
   (command-line
+   #:program (short-program+command-name)
    #:once-any
    [("--text") "generate text-format output (the default)"
     (void)]
diff --git a/collects/scriblib/autobib.ss b/collects/scriblib/autobib.ss
@@ -36,7 +36,7 @@
    (lambda (renderer part ri)
      (let ([s (resolve-get part ri `(,which ,(auto-bib-key bib-entry)))])
        (list (make-link-element #f 
-                                (list s (auto-bib-specific bib-entry))
+                                (list (or s "???") (auto-bib-specific bib-entry))
                                 `(autobib ,(auto-bib-key bib-entry))))))
    (lambda () "(???)")
    (lambda () "(???)")))