Changeset 11647 in project


Ignore:
Timestamp:
08/15/08 09:27:05 (13 years ago)
Author:
felix winkelmann
Message:

added test parameter

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/hygienic/henrietta.scm

    r11642 r11647  
    3535  (define *default-transport* 'svn)
    3636  (define *default-location* (current-directory))
     37  (define *test* #f)
    3738
    3839  (define (headers)
     
    8182            (cond ((not m)
    8283                   (headers)            ; from here on use `fail'
    83                    (if egg
    84                        (retrieve egg version)
    85                        (fail "no extension name specified") ) )
     84                   (cond (*test*
     85                          (fail "test"))
     86                         (egg
     87                          (retrieve egg version))
     88                         (else (fail "no extension name specified") ) ))
    8689                  ((string=? ms "version")
    8790                   (set! version (apply substring qs (caddr m)))
     
    8992                  ((string=? ms "name")
    9093                   (set! egg (apply substring qs (caddr m)))
     94                   (loop rest))
     95                  ((string=? ms "test")
     96                   (set! *test* #t)
    9197                   (loop rest))
    9298                  (else
Note: See TracChangeset for help on using the changeset viewer.