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

removed the minor version number from the planet status line in drracket so as not to confuse (since planet may actually supply a later version number)

Browse Source
This commit is contained in:
Robby Findler 2010-06-10 16:40:35 -05:00
parent 893beb582e
commit 0b55de2e6e
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/planet/resolver.rkt
View File

@ -768,22 +768,18 @@ subdirectory.
(abort (format "Internal error (unknown HTTP response code ~a)"
response-code))]))))))
;; formats the pkg-spec back into a string the way the user typed it in.
;; formats the pkg-spec back into a string the way the user typed it in,
;; except it never shows the minor version number (since some later one may actually be being used)
;; assumes that the pkg-spec comes from the command-line
(define (pkg-spec->string pkg)
(format "~a/~a~a~a"
(format "~a/~a~a"
(if (pair? (pkg-spec-path pkg))
(car (pkg-spec-path pkg))
"<<unknown>>") ;; this shouldn't happen
(regexp-replace #rx"\\.plt$" (pkg-spec-name pkg) "")
(if (pkg-spec-maj pkg)
(format ":~a" (pkg-spec-maj pkg))
"")
(cond
[(and (pkg-spec-maj pkg)
(pkg-spec-minor-lo pkg))
(format ".~a" (pkg-spec-minor-lo pkg))]
[else ""])))
"")))
;; =============================================================================
;; MODULE MANAGEMENT