Changeset 12305 in project for chicken/trunk/chicken-uninstall.scm


Ignore:
Timestamp:
10/29/08 14:36:32 (12 years ago)
Author:
felix winkelmann
Message:

chicken-install: 404 starts retry; tested retries; enabled kitten-technologies mirror as download location; chicken-uninstall gives indication if no egg matches

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-uninstall.scm

    r11776 r12305  
    6363  (define (uninstall pats)
    6464    (let ((eggs (gather-eggs pats)))
    65       (when (or *force* (equal? eggs pats) (ask eggs))
    66         (for-each
    67          (lambda (e)
    68            (print "removing " e)
    69            (remove-extension e *sudo*) )
    70          eggs))))
     65      (cond ((null? eggs)
     66             (print "nothing to remove.") )
     67            ((or *force* (equal? eggs pats) (ask eggs))
     68             (for-each
     69              (lambda (e)
     70                (print "removing " e)
     71                (remove-extension e *sudo*) )
     72              eggs)))))
    7173
    7274  (define (usage code)
Note: See TracChangeset for help on using the changeset viewer.