Changeset 12342 in project for chicken/trunk/setup-api.scm


Ignore:
Timestamp:
11/03/08 03:56:09 (13 years ago)
Author:
felix winkelmann
Message:

removed some dead code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/setup-api.scm

    r12301 r12342  
    124124(define *target-libs* (foreign-value "C_TARGET_MORE_LIBS" c-string))
    125125(define *target-lib-home* (foreign-value "C_TARGET_LIB_HOME" c-string))
    126 
    127 (define *major-version* (##sys#fudge 41))
    128126
    129127(define *sudo* #f)
     
    478476  (make-parameter (or (getenv "CHICKEN_INSTALL_PREFIX") #f)))
    479477
    480 (define (with-ext filename ext)
    481   (if (and (equal? (pathname-extension filename) ext)
    482            (file-exists? filename) )
    483       filename
    484       (let ((f2 (pathname-replace-extension filename ext)))
    485         (and (file-exists? f2) f2) ) ) )
    486 
    487478(define (write-info id files info)
    488479  (let ((info `((files ,@files)
Note: See TracChangeset for help on using the changeset viewer.