From b8666df46922a0a946167b8fc9641ad6717af051 Mon Sep 17 00:00:00 2001 From: Jacob Matthews Date: Mon, 23 Jan 2006 06:15:23 +0000 Subject: [PATCH] . svn: r1930 --- collects/planet/private/planet-shared.ss | 4 ++-- collects/planet/util.ss | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/planet/private/planet-shared.ss b/collects/planet/private/planet-shared.ss index 440dd61786..b6006e1d67 100644 --- a/collects/planet/private/planet-shared.ss +++ b/collects/planet/private/planet-shared.ss @@ -184,8 +184,8 @@ Various common pieces of code that both the client and server need to access (filter (λ (x) (let ((n (assoc-table-row->min x))) - (or (not lo) (>= n lo)) - (or (not hi) (<= n hi)))) + (and (or (not lo) (>= n lo)) + (or (not hi) (<= n hi))))) maj-matches)))) (if (null? in-min-range) #f diff --git a/collects/planet/util.ss b/collects/planet/util.ss index 91e2d0eb84..b628e2b5b8 100644 --- a/collects/planet/util.ss +++ b/collects/planet/util.ss @@ -32,7 +32,7 @@ ;; get-installed-package : string string nat nat -> PKG | #f ;; gets the package associated with this package, if any (define (get-installed-package owner name maj min) - (lookup-package (make-pkg-spec name maj min min (list owner) #f) (CACHE-DIR))) + (lookup-package (make-pkg-spec name maj min min (list owner) #f))) ;; just so it will be provided (define unlink-all remove-all-linkage!)