Changeset 7369 in project


Ignore:
Timestamp:
01/16/08 14:01:32 (12 years ago)
Author:
felix
Message:

slight changes in branch maker

File:
1 edited

Legend:

Unmodified
Added
Removed
  • maintenance/make-branch.scm

    r7367 r7369  
    1515  '("maintenance"
    1616    "release"
     17    "doc-indices"
    1718    "wiki"
     19    "salmonella-custom-feeds"
    1820    "chicken") )
    1921
     
    6163          (print egg ": branch already exists") )
    6264         (else
    63           (when (or (file-exists? (make-pathname egg "trunk"))
    64                     (file-exists? (make-pathname egg egg "setup"))
    65                     (begin
    66                       (print* "\n`" egg "' doesn't seem to be an egg. Copy? ")
    67                       (string=? "yes" (readline))))
     65          (when (and (not (null? (directory egg)))
     66                     (or (file-exists? (make-pathname egg "trunk"))
     67                         (file-exists? (make-pathname egg egg "setup"))
     68                         (begin
     69                           (print* "\n`" egg "' doesn't seem to be an egg. Copy? ")
     70                           (string=? "yes" (read-line)))) )
    6871            (run (svn cp ,(make-pathname *repository* egg)
    6972                      ,(make-pathname (list *repository* *release*) egg) ) ) ) ) ) )
Note: See TracChangeset for help on using the changeset viewer.