Changeset 12215 in project


Ignore:
Timestamp:
10/20/08 23:28:01 (12 years ago)
Author:
felix winkelmann
Message:

only tries to find/load .so's, when dloading is available

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/eval.scm

    r12130 r12215  
    916916                   [else
    917917                    (let ([fname2 (##sys#string-append input ##sys#load-dynamic-extension)])
    918                       (if (##sys#file-info fname2)
     918                      (if (and (##sys#fudge 24) (##sys#file-info fname2)) ; dload?
    919919                          fname2
    920920                          (let ([fname3 (##sys#string-append input source-file-extension)])
     
    10991099        (define (check path)
    11001100          (let ([p0 (string-append path "/" p)])
    1101             (and (or (file-exists? (##sys#string-append p0 ##sys#load-dynamic-extension))
     1101            (and (or (and (##sys#fudge 24) ; dload?
     1102                          (file-exists? (##sys#string-append p0 ##sys#load-dynamic-extension)))
    11021103                     (file-exists? (##sys#string-append p0 source-file-extension)) )
    11031104                 p0) ) )
     
    14631464      (define (test fname)
    14641465        (test2
    1465          fname 
    1466          (if prefer-source
    1467              (list source-file-extension ##sys#load-dynamic-extension)
    1468              (list ##sys#load-dynamic-extension source-file-extension) ) ) )
     1466         fname
     1467         (cond ((not (##sys#fudge 24)) (list source-file-extension)) ; no dload?
     1468               (prefer-source (list source-file-extension ##sys#load-dynamic-extension))
     1469               (else (list ##sys#load-dynamic-extension source-file-extension) ) ) ))
    14691470      (or (test fname)
    14701471          (let loop ((paths (if repo
Note: See TracChangeset for help on using the changeset viewer.