Changeset 11765 in project


Ignore:
Timestamp:
08/26/08 05:35:53 (12 years ago)
Author:
felix winkelmann
Message:

henrietta + setup-download fix for tagged repo dirs

Location:
chicken/branches/hygienic
Files:
2 edited

Legend:

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

    r11717 r11765  
    7777    (let ((qs (getenv "QUERY_STRING"))
    7878          (ra (getenv "REMOTE_ADDR")))
    79       (fprintf (current-error-port) "~%========== serving request from ~a ...~%"
    80                (or ra "<unknown>"))
     79      (fprintf (current-error-port) "~%========== serving request from ~a: ~s~%"
     80               (or ra "<unknown>") qs)
    8181      (unless qs
    8282        (error "no QUERY_STRING set"))
  • chicken/branches/hygienic/setup-download.scm

    r11714 r11765  
    8787                 (or (let ((vs (filter-map
    8888                                (lambda (f)
    89                                   (and-let* ((m (string-search "^tags/([^/]+)/" f))
    90                                              (v (cadr m)))
    91                                     (print v)
    92                                     v))
     89                                  (and-let* ((m (string-search "^tags/([^/]+)/" f)))
     90                                    (cadr m)))
    9391                                files)))
    9492                       (if version
Note: See TracChangeset for help on using the changeset viewer.