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

raco' supports relative module paths in raco-command' "info.rkt" entries

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-26 14:46:06 -05:00
parent ae4d2639dd
commit 93183284f7
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/raco/all-tools.rkt
View File

@ -25,15 +25,28 @@
(when p
(fprintf
(current-error-port)
"warning: tool ~s registered twice: ~e and ~e"
"warning: tool ~s registered twice: ~e and ~e\n"
(car entry)
(car p)
d)))
(hash-set! tools (car entry) entry)]
(let ([entry (let ([e (cadr entry)])
(if (or (string? e)
(and (pair? e)
(eq? (car e) 'file)
(relative-path? (cadr e))))
;; convert absolute path to realive to "info.rkt":
(list* (car entry)
(build-path d (if (pair? e)
(cadr e)
e))
(cddr entry))
;; module path is absolute already:
entry))])
(hash-set! tools (car entry) entry))]
[else
(fprintf
(current-error-port)
"warning: ~s provided bad `raco-commands' spec: ~e"
"warning: ~s provided bad `raco-commands' spec: ~e\n"
d
entry)]))))
tools))