fix 'planet remove' commandline argument checking

This commit is contained in:
Robby Findler 2014-04-27 14:12:48 -05:00
parent da600ad291
commit 4131b0c3d1

View File

@ -64,7 +64,9 @@ Remove the specified package from the local cache, optionally also removing its
"uninstalled-package cache")
(erase? #t)]
#:args (owner pkg maj min)
((if (erase?) erase remove) owner pkg maj min)]
(begin
(verify-package-name pkg)
((if (erase?) erase remove) owner pkg maj min))]
["show" "list the packages installed in the local cache"
"\nList the packages installed in the local cache"
#:once-any