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

2
collects/setup/main.rkt
View File

@ -24,7 +24,7 @@
ns))) ns)))
(define-values (short-name long-names raco?) (define-values (short-name long-names raco?)
;; Load the name modulewithout using .zos, and in its own namespace to ;; Load the name module without using .zos, and in its own namespace to
;; avoid poluting the cm-managed namespace later ;; avoid poluting the cm-managed namespace later
(parameterize ([use-compiled-file-paths null] (parameterize ([use-compiled-file-paths null]
[current-namespace (make-kernel-namespace)]) [current-namespace (make-kernel-namespace)])

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

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