Changeset 12215 in project
- Timestamp:
- 10/20/08 23:28:01 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/eval.scm
r12130 r12215 916 916 [else 917 917 (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? 919 919 fname2 920 920 (let ([fname3 (##sys#string-append input source-file-extension)]) … … 1099 1099 (define (check path) 1100 1100 (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))) 1102 1103 (file-exists? (##sys#string-append p0 source-file-extension)) ) 1103 1104 p0) ) ) … … 1463 1464 (define (test fname) 1464 1465 (test2 1465 fname 1466 ( if prefer-source1467 (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) ) ) )) 1469 1470 (or (test fname) 1470 1471 (let loop ((paths (if repo
Note: See TracChangeset
for help on using the changeset viewer.