From d63b49ccbbdb6a75274eb1106050ddcb8ba01f38 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Aug 2013 10:41:46 -0600
Subject: [PATCH] `raco pkg' repair

---
 racket/collects/pkg/name.rkt | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/racket/collects/pkg/name.rkt b/racket/collects/pkg/name.rkt
index 58d4f97227..ca176df26b 100644
--- a/racket/collects/pkg/name.rkt
+++ b/racket/collects/pkg/name.rkt
@@ -8,7 +8,9 @@
   [package-source->name+type (->* (string? (or/c #f symbol?))
                                   (#:link-dirs? boolean?)
                                   (values (or/c #f string?) (or/c #f symbol?)))]
-  [package-source->name (-> string? (or/c #f string?))]))
+  [package-source->name (->* (string?)
+                             ((or/c #f symbol?))
+                             (or/c #f string?))]))
 
 (define rx:package-name #rx"^[-_a-zA-Z0-9]+$")
 (define rx:archive #rx"[.](plt|zip|tar|tgz|tar[.]gz)$")
@@ -106,6 +108,6 @@
    [else
     (values #f #f)]))
 
-(define (package-source->name s)
-  (define-values (name type) (package-source->name+type s #f))
+(define (package-source->name s [given-type #f])
+  (define-values (name type) (package-source->name+type s given-type))
   name)