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

Fixing delete

Browse Source
This commit is contained in:
Jay McCarthy 2013-08-27 08:31:11 -06:00
parent 0f4f4d705a
commit e1170b21d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/plt-services/meta/pkg-index/official/main.rkt
View File

@ -620,8 +620,8 @@
(define (delete! pkg-req)
(when (and (package-exists? pkg)
(not (member (package-ref (package-info pkg) 'author)
(current-user pkg-req #t))))
(not (member (current-user pkg-req #t)
(author->list (package-ref (package-info pkg) 'author)))))
(error 'pnr
"Packages may only be modified by their authors: ~e"
pkg))