suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix `raco setup' reported name for Windows

Browse Source
This commit is contained in:
Matthew Flatt 2010-08-06 13:54:18 -06:00
parent 561d33fddd
commit 804ff115e7
2 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/setup/private/command-name.rkt
View File

@ -2,12 +2,15 @@
;; so minimize its dependencies
(module command-name '#%kernel
(#%require raco/command-name)
(#%require raco/command-name '#%utils)
(#%provide get-names)
(define-values (get-names)
(lambda ()
(let-values ([(p) (find-system-path 'run-file)])
(let-values ([(p) (if (eq? (system-type) 'windows)
(path-replace-suffix p #"")
p)])
(let-values ([(base name dir?) (split-path p)])
(if (current-command-name)
(values (format "~a ~a" name (current-command-name))
@ -26,4 +29,5 @@
"raco")
" setup")
#t)
(values (path->string name) p #f))))))))
(values (path->string name) p #f)))))))))