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

.

Browse Source 
svn: r1930
This commit is contained in:
Jacob Matthews 2006-01-23 06:15:23 +00:00
parent a3a3b3ef13
commit b8666df469
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/planet/private/planet-shared.ss
View File

@ -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

2
collects/planet/util.ss
View File

@ -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!)