fixed a bug Eli noticed

This commit is contained in:
Robby Findler 2010-09-10 06:59:27 -05:00
parent 44fe632da5
commit 3a5875857a

View File

@ -14,7 +14,8 @@
(let-values ([(base name dir?) (split-path p)])
(if (current-command-name)
(values (format "~a ~a" name (current-command-name))
(program+command-name))
(program+command-name)
#t)
;; Hack for bootstrapping, if the program name is "raco",
;; then claim to be the "setup" command:
;; if the program name is "racket", assume that there's a "racket -l setup"