Changeset 12596 in project for chicken/trunk/chicken-install.scm


Ignore:
Timestamp:
11/26/08 16:31:11 (13 years ago)
Author:
felix winkelmann
Message:

fixed import form check (handles aliasing); bumped version to 4.0.0x3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-install.scm

    r12595 r12596  
    298298                      files) )
    299299           (dbfile (make-pathname (repository-path) "db")))
    300       (for-each
    301        (lambda (f)
    302          (let ((m (string-match ".*/([^/]+)\\.import\\.(scm|so)" f)))
    303            (eval `(import ,(string->symbol (cadr m))))))
    304        files)
     300      (fluid-let ((##sys#warnings-enabled #f))
     301        (for-each
     302         (lambda (f)
     303           (let ((m (string-match ".*/([^/]+)\\.import\\.(scm|so)" f)))
     304             (eval `(import ,(string->symbol (cadr m))))))
     305         files))
    305306      (print "generating database " dbfile)
    306307      (let ((db
Note: See TracChangeset for help on using the changeset viewer.