From e1170b21d65cbd39fdc74ac96548e6095bf43203 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Aug 2013 08:31:11 -0600 Subject: [PATCH] Fixing delete --- pkgs/plt-services/meta/pkg-index/official/main.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/plt-services/meta/pkg-index/official/main.rkt b/pkgs/plt-services/meta/pkg-index/official/main.rkt index be089de278..305d23bf92 100644 --- a/pkgs/plt-services/meta/pkg-index/official/main.rkt +++ b/pkgs/plt-services/meta/pkg-index/official/main.rkt @@ -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))