Changeset 11978 in project
- Timestamp:
- 09/22/08 11:44:02 (11 years ago)
- Location:
- chicken/branches/hygienic
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/branches/hygienic/henrietta.scm
r11961 r11978 53 53 54 54 (define (test-file? path) 55 (string-match "(\\./)?tests /.*" path))55 (string-match "(\\./)?tests(/.*)?" path)) 56 56 57 57 (define (retrieve name version) … … 73 73 (for-each 74 74 (lambda (f) 75 ( unless (test-file? f)75 (when (or *tests* (not (test-file? f))) 76 76 (let ((ff (string-append dir "/" f)) 77 77 (pf (string-append prefix "/" f))) … … 96 96 (version #f)) 97 97 (let loop ((qs (if m (cadr m) qs))) 98 (let* ((m (string-search-positions "^ (\\w+)=([^&]+)" qs))98 (let* ((m (string-search-positions "^&?(\\w+)=([^&]+)" qs)) 99 99 (ms (and m (apply substring qs (cadr m)))) 100 100 (rest (and m (substring qs (cadar m))))) -
chicken/branches/hygienic/rules.make
r11892 r11978 1369 1369 gzip -d -c $(SRCDIR)/bootstrap.tar.gz | tar xvf - 1370 1370 touch *.c 1371 $(MAKE) -f $(SRCDIR)/Makefile.$(PLATFORM) STATICBUILD=1 chicken$(EXE) 1371 $(MAKE) -f $(SRCDIR)/Makefile.$(PLATFORM) STATICBUILD=1 DEBUGBUILD=1 \ 1372 chicken$(EXE) 1372 1373 cp chicken$(EXE) chicken-boot$(EXE) 1373 1374 touch *.scm
Note: See TracChangeset
for help on using the changeset viewer.