Changeset 14999 in project for chicken/trunk


Ignore:
Timestamp:
06/16/09 13:31:46 (11 years ago)
Author:
felix winkelmann
Message:

prefer pwd when locating import libraries

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r14874 r14999  
    620620                                                           (##sys#find-extension
    621621                                                            (##sys#canonicalize-extension-path
    622                                                              id 'require-extension) #f)) ) )
     622                                                             id 'require-extension)
     623                                                            #f #t)) ) )
    623624                                        (compiler-warning
    624625                                         'ext "extension `~A' is currently not installed" id))
  • chicken/trunk/eval.scm

    r14828 r14999  
    10891089  (let ([file-exists? file-exists?]
    10901090        [string-append string-append] )
    1091     (lambda (p inc?)
     1091    (lambda (p inc? here-first?)
    10921092      (let ((rp (##sys#repository-path)))
    10931093        (define (check path)
     
    11001100                 p0) ) )
    11011101          (let loop ([paths (##sys#append
     1102                             (if here-first? '(".") '())
    11021103                             (if rp (list rp) '("."))
    11031104                             (if inc? (##sys#append ##sys#include-pathnames '(".")) '()) ) ] )
     
    11191120               (##sys#load-library id #f) )
    11201121              (else
    1121                (let ([id2 (##sys#find-extension p #t)])
     1122               (let ([id2 (##sys#find-extension p #t #f)])
    11221123                 (cond (id2
    11231124                        (##sys#load id2 #f #f)
  • chicken/trunk/expand.scm

    r14995 r14999  
    814814          (let ((il (##sys#find-extension
    815815                     (string-append (symbol->string mname) ".import")
    816                      #t)))
     816                     #t #t)))
    817817            (cond (il (parameterize ((##sys#current-module #f)
    818818                                     (##sys#current-environment '())
Note: See TracChangeset for help on using the changeset viewer.