From 340e25d13e41b9acb0af220615d2bdfa8551f8d3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 21 Apr 2010 13:38:04 -0600
Subject: [PATCH] rico -> racket-tool

original commit: c862eb8121be398c3741b1f68e3b3fbb224d92d9
---
 collects/scribble/info.ss    | 4 ++++
 collects/scribble/run.ss     | 2 ++
 collects/scriblib/autobib.ss | 2 +-
 3 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/collects/scribble/info.ss b/collects/scribble/info.ss
index a135983a..5af4d4aa 100644
--- 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
index e6dc7078..c171c7b7 100644
--- 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
index 9c8de65a..367449b1 100644
--- 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 () "(???)")))