Changeset 7762 in project


Ignore:
Timestamp:
01/16/08 15:43:38 (12 years ago)
Author:
felix
Message:

make-branch generates egg list

File:
1 edited

Legend:

Unmodified
Added
Removed
  • maintenance/make-branch.scm

    r7369 r7762  
    5858    (exit) ) )
    5959
     60(define *eggfile* (open-output-file "egg.list"))
     61
    6062(for-each
    6163 (lambda (egg)
     
    6870                         (begin
    6971                           (print* "\n`" egg "' doesn't seem to be an egg. Copy? ")
    70                            (string=? "yes" (read-line)))) )
    71             (run (svn cp ,(make-pathname *repository* egg)
     72                           (string=? "yes"
     73                                     (if (dry-run) "no" (read-line)))) ) )
     74                (fprintf *eggfile* "~a~%" egg)
     75                (run (svn cp
     76                      -m ,(conc "\"creating branch " *release* "\"")
     77                      ,(make-pathname *repository* egg)
    7278                      ,(make-pathname (list *repository* *release*) egg) ) ) ) ) ) )
    7379 (reverse *eggs*))
     80
     81(close-output-port *eggfile*)
Note: See TracChangeset for help on using the changeset viewer.