Changeset 13511 in project


Ignore:
Timestamp:
03/05/09 17:22:59 (11 years ago)
Author:
Kon Lovett
Message:

Testing version capture.

Location:
release/4/box
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/box/tags/2.0.0/box.setup

    r13461 r13511  
    11;;;; box.setup
     2
     3(require-library posix)
     4(import posix)
     5
     6(require-library files)
     7(import files)
    28
    39;;
     
    713;;
    814
    9 (define *version* (if (file-exists? "version") (string-chomp (read-all "version") "\n") "trunk"))
    10 
     15(define *version*
     16  (cond
     17    [(file-exists? "version")
     18      (string-chomp (read-all "version") "\n") ]
     19    [else
     20      (let-values ([(dr fl ex) (decompose-pathname (current-directory))])
     21        (make-pathname #f fl ex) ) ] ) )
    1122;;
    1223
  • release/4/box/trunk/box.setup

    r13461 r13511  
    11;;;; box.setup
     2
     3(require-library posix)
     4(import posix)
     5
     6(require-library files)
     7(import files)
    28
    39;;
     
    713;;
    814
    9 (define *version* (if (file-exists? "version") (string-chomp (read-all "version") "\n") "trunk"))
    10 
     15(define *version*
     16  (cond
     17    [(file-exists? "version")
     18      (string-chomp (read-all "version") "\n") ]
     19    [else
     20      (let-values ([(dr fl ex) (decompose-pathname (current-directory))])
     21        (make-pathname #f fl ex) ) ] ) )
    1122;;
    1223
Note: See TracChangeset for help on using the changeset viewer.