Changeset 12305 in project for chicken/trunk/setup-download.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/setup-download.scm

    r12227 r12305  
    142142      eggdir))
    143143
     144  (define (network-failure msg . args)
     145    (signal
     146     (make-composite-condition
     147      (make-property-condition
     148       'exn 'message "invalid response from server"
     149       'arguments args)
     150      (make-property-condition 'http-fetch))))
     151
    144152  (define (http-fetch host port loc dest)
    145153    (d "connecting to host ~s, port ~a ...~%" host port)
     
    156164          ;;*** handle redirects here
    157165          (unless (and m (string=? "200" (cadr m)))
    158             (error "invalid response from server" h1))
     166            (network-failure "invalid response from server" h1))
    159167          (let loop ()
    160168            (let ((ln (read-line in)))
Note: See TracChangeset for help on using the changeset viewer.