Ignore:
Timestamp:
09/22/08 11:44:02 (12 years ago)
Author:
felix winkelmann
Message:

henrietta fixes

File:
1 edited

Legend:

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

    r11961 r11978  
    5353
    5454  (define (test-file? path)
    55     (string-match "(\\./)?tests/.*" path))
     55    (string-match "(\\./)?tests(/.*)?" path))
    5656
    5757  (define (retrieve name version)
     
    7373          (for-each
    7474           (lambda (f)
    75              (unless (test-file? f)
     75             (when (or *tests* (not (test-file? f)))
    7676               (let ((ff (string-append dir "/" f))
    7777                     (pf (string-append prefix "/" f)))
     
    9696            (version #f))
    9797        (let loop ((qs (if m (cadr m) qs)))
    98           (let* ((m (string-search-positions "^(\\w+)=([^&]+)" qs))
     98          (let* ((m (string-search-positions "^&?(\\w+)=([^&]+)" qs))
    9999                 (ms (and m (apply substring qs (cadr m))))
    100100                 (rest (and m (substring qs (cadar m)))))
Note: See TracChangeset for help on using the changeset viewer.