Changeset 24151 in project


Ignore:
Timestamp:
06/18/11 20:50:21 (10 years ago)
Author:
felix winkelmann
Message:

henrietta 0.4: properly report version in response for egg-request

Location:
release/4/henrietta
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/henrietta/tags/0.4/henrietta.scm

    r22726 r24151  
    8282
    8383  (define (retrieve name version)
    84     (let ((dir (hairy
    85                  (retrieve-extension
    86                   name *default-transport* *default-location*
    87                   version: version
    88                   quiet: #t
    89                   destination: #f
    90                   tests: *tests*
    91                   mode: *mode*
    92                   username: *username*
    93                   password: *password*))))
     84    (let-values (((dir ver)
     85                  (hairy
     86                   (retrieve-extension
     87                    name *default-transport* *default-location*
     88                    version: version
     89                    quiet: #t
     90                    destination: #f
     91                    tests: *tests*
     92                    mode: *mode*
     93                    username: *username*
     94                    password: *password*))))
    9495      (unless dir
    9596        (fail "no such extension or version" name version))
     
    102103                     (pf (string-append prefix "/" f)))
    103104                 (cond ((directory? ff)
    104                         (print "\n#|-------------------- " version " |# \"" pf "/\" 0")
     105                        (print "\n#|-------------------- " ver " |# \"" pf "/\" 0")
    105106                        (walk ff pf))
    106107                       (else
    107                         (print "\n#|-------------------- " version " |# \"" pf "\" "
     108                        (print "\n#|-------------------- " ver " |# \"" pf "\" "
    108109                               (file-size ff))
    109110                        (display (read-all ff)))))))
  • release/4/henrietta/tags/0.4/henrietta.setup

    r20698 r24151  
    77 'henrietta
    88 '("henrietta")
    9  '((version 0.3)))
     9 '((version 0.4)))
  • release/4/henrietta/trunk/henrietta.scm

    r22726 r24151  
    8282
    8383  (define (retrieve name version)
    84     (let ((dir (hairy
    85                  (retrieve-extension
    86                   name *default-transport* *default-location*
    87                   version: version
    88                   quiet: #t
    89                   destination: #f
    90                   tests: *tests*
    91                   mode: *mode*
    92                   username: *username*
    93                   password: *password*))))
     84    (let-values (((dir ver)
     85                  (hairy
     86                   (retrieve-extension
     87                    name *default-transport* *default-location*
     88                    version: version
     89                    quiet: #t
     90                    destination: #f
     91                    tests: *tests*
     92                    mode: *mode*
     93                    username: *username*
     94                    password: *password*))))
    9495      (unless dir
    9596        (fail "no such extension or version" name version))
     
    102103                     (pf (string-append prefix "/" f)))
    103104                 (cond ((directory? ff)
    104                         (print "\n#|-------------------- " version " |# \"" pf "/\" 0")
     105                        (print "\n#|-------------------- " ver " |# \"" pf "/\" 0")
    105106                        (walk ff pf))
    106107                       (else
    107                         (print "\n#|-------------------- " version " |# \"" pf "\" "
     108                        (print "\n#|-------------------- " ver " |# \"" pf "\" "
    108109                               (file-size ff))
    109110                        (display (read-all ff)))))))
  • release/4/henrietta/trunk/henrietta.setup

    r20698 r24151  
    77 'henrietta
    88 '("henrietta")
    9  '((version 0.3)))
     9 '((version 0.4)))
Note: See TracChangeset for help on using the changeset viewer.