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

commit 01b105c3d64f740d4af72bc5b5f2ece7f40bef82
parent 31d73341843ae9bfdbf6be7996df29badcbad3b2
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat, 24 Apr 2010 07:17:53 -0600

racket-tool -> raco

original commit: 22470e414713ab34f653fb96f062338abfb3d334

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

3 files changed, 5 insertions(+), 3 deletions(-)
diff --git 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
@@ -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
@@ -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")