Changeset 15700 in project


Ignore:
Timestamp:
09/01/09 13:20:26 (10 years ago)
Author:
felix
Message:

fixed load bug #72, reported by Mario

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/csi.scm

    r15119 r15700  
    2727
    2828(declare
    29   (uses chicken-syntax srfi-69 ports) ; is here because a bootstrap from an older chicken may not make
    30   (usual-integrations)                  ;  this used automatically
     29  (uses chicken-syntax srfi-69 ports) ;XXX is here because a bootstrap from an older chicken may not make
     30  (usual-integrations)                ;    this used automatically
    3131  (disable-interrupts)
    3232  (disable-warning var)
    33   (run-time-macros)                     ;*** later: compile-syntax
     33  (compile-syntax)
    3434  (foreign-declare #<<EOF
    3535#if (defined(_MSC_VER) && defined(_WIN32)) || defined(HAVE_DIRECT_H)
  • chicken/trunk/eval.scm

    r15543 r15700  
    129129(define-constant builtin-features
    130130  '(chicken srfi-2 srfi-6 srfi-10 srfi-12 srfi-23 srfi-28 srfi-30 srfi-31 srfi-39
    131             srfi-69 srfi-98) )
     131            srfi-69 srfi-88 srfi-98) )
    132132
    133133(define-constant builtin-features/compiled
     
    915915      (let* ([isdir #f]
    916916             [fname
    917              (cond [(port? input) #f]
    918                    [(not (string? input)) (badfile input)]
    919                    [(and-let* ([info (##sys#file-info input)]
    920                                [id (##sys#slot info 4)] )
    921                       (set! isdir (eq? 1 id))
    922                       (not id) )
    923                     input]
    924                    [else
    925                     (let ([fname2 (##sys#string-append input ##sys#load-dynamic-extension)])
    926                       (if (and (not ##sys#dload-disabled)
    927                                (##sys#fudge 24) ; dload?
    928                                (##sys#file-info fname2))
    929                           fname2
    930                           (let ([fname3 (##sys#string-append input source-file-extension)])
    931                             (if (##sys#file-info fname3)
    932                                 fname3
    933                                 (and (not isdir) input) ) ) ) ) ] ) ]
    934             [evproc (or evaluator eval)] )
     917              (cond [(port? input) #f]
     918                    [(not (string? input)) (badfile input)]
     919                    [(and-let* ([info (##sys#file-info input)]
     920                                [id (##sys#slot info 4)] )
     921                       (set! isdir (eq? 1 id))
     922                       (not isdir) )
     923                     input]
     924                    [else
     925                     (let ([fname2 (##sys#string-append input ##sys#load-dynamic-extension)])
     926                       (if (and (not ##sys#dload-disabled)
     927                                (##sys#fudge 24) ; dload?
     928                                (##sys#file-info fname2))
     929                           fname2
     930                           (let ([fname3 (##sys#string-append input source-file-extension)])
     931                             (if (##sys#file-info fname3)
     932                                 fname3
     933                                 (and (not isdir) input) ) ) ) ) ] ) ]
     934             [evproc (or evaluator eval)] )
    935935        (cond [(and (string? input) (not fname))
    936936               (##sys#signal-hook #:file-error 'load "cannot open file" input) ]
  • chicken/trunk/library.scm

    r15646 r15700  
    33433343
    33443344(define ##sys#features
    3345   '(#:chicken #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62 #:srfi-17 #:srfi-12 #:srfi-98))
     3345  '(#:chicken #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62 #:srfi-17 #:srfi-12 #:srfi-88 #:srfi-98))
    33463346
    33473347;; Add system features:
Note: See TracChangeset for help on using the changeset viewer.