Changeset 33550 in project


Ignore:
Timestamp:
07/31/16 13:13:15 (4 years ago)
Author:
sjamaan
Message:

Fix the autoload egg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/autoload/trunk/autoload.scm

    r25183 r33550  
    5757           (_args (rename 'args))
    5858           (_tmp (rename 'tmp))
    59            (_require-library (rename 'require-library))
     59           (_eval (rename 'eval))
    6060           (_condition-case (rename 'condition-case)))
    6161       `(,_begin
    62          (,_import ,module)
    6362         ,@(map
    6463            (lambda (x)
     
    7372                (if default
    7473                    `(,_define (,alias . ,_args)
    75                        (,_condition-case
    76                         (,_begin
    77                          (,_require-library ,module)
    78                          (,_let ((,_tmp ,full-name))
     74                       (,_let ((,_tmp (,_condition-case
     75                                       (,_begin
     76                                        (,_eval
     77                                         (begin (require-library ,module)
     78                                                #f))
     79                                        (,_eval ',full-name))
     80                                        (exn () ,default))))
    7981                           (,_set! ,alias ,_tmp)
    8082                           (,_apply ,_tmp ,_args)))
    81                         (exn ()
    82                              (,_let ((,_tmp ,default))
    83                                (,_set! ,alias ,_tmp)
    84                                (,_apply ,_tmp ,_args)))))
    8583                    `(,_define (,alias . ,_args)
    86                        (,_require-library ,module)
    87                        (,_let ((,_tmp ,full-name))
     84                       (,_let ((,_tmp (,_begin
     85                                        (,_eval
     86                                         (begin (require-library ,module)
     87                                                 #f))
     88                                        (,_eval ',full-name))))
    8889                         (,_set! ,alias ,_tmp)
    8990                         (,_apply ,_tmp ,_args))))))
Note: See TracChangeset for help on using the changeset viewer.