From 01b105c3d64f740d4af72bc5b5f2ece7f40bef82 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 24 Apr 2010 07:17:53 -0600
Subject: [PATCH] racket-tool -> raco

original commit: 22470e414713ab34f653fb96f062338abfb3d334
---
 collects/help/help.ss     | 4 +++-
 collects/scribble/info.ss | 2 +-
 collects/scribble/run.ss  | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index 340a7a7c..039a3438 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -1,10 +1,12 @@
 #lang scheme/base
 
-(require "search.ss" scheme/cmdline scheme/list scheme/string)
+(require "search.ss" scheme/cmdline scheme/list scheme/string
+         raco/command-name) 
 
 ;; Minimal command-line arguments, the query string can contain all
 ;; kinds of magic.
 (command-line
+ #:program (short-program+command-name)
  #:handlers
  (lambda (_ . ts)
    (if (null? ts)
diff --git a/collects/scribble/info.ss b/collects/scribble/info.ss
index 708c8550..5d0130f0 100644
--- a/collects/scribble/info.ss
+++ b/collects/scribble/info.ss
@@ -4,6 +4,6 @@
 (define mzscheme-launcher-libraries '("run.ss"))
 (define compile-omit-paths '("test-reader.ss"))
 
-(define racket-tools
+(define raco-commands
   '(("scribble" scribble/run "render a Scribble document" #f)))
 
diff --git a/collects/scribble/run.ss b/collects/scribble/run.ss
index 31874f87..e5d35d32 100644
--- a/collects/scribble/run.ss
+++ b/collects/scribble/run.ss
@@ -6,7 +6,7 @@
          scheme/cmdline
          scheme/file
          scheme/class
-         tool/command-name
+         raco/command-name
          (prefix-in text:  "text-render.ss")
          (prefix-in html:  "html-render.ss")
          (prefix-in latex: "latex-render.ss")