raco pkg: fix strip of package without "info.rkt"

2014-02-07 21:35:46 -07:00 · 2014-02-07 21:35:46 -07:00 · 8a14fbd5b1
commit 8a14fbd5b1
parent 0ad3a6a7f6
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/pkg/strip.rkt
+++ b/racket/collects/pkg/strip.rkt
@ -143,7 +143,7 @@
  (define level
    (let ([i (get-info/full dir #:namespace drop-keep-ns)])
      (cond
-       [(or (not get-info) 
+       [(or (not i)
            (not (eq? 'multi (i 'collection (lambda () #t)))))
        'collection] ; single-collection package
       [else 'package])))