Ticket #548: get-rid-of-global-ref.patch

File get-rid-of-global-ref.patch, 1.3 KB (added by Moritz Heidkamp, 13 years ago)

  • autoload.scm

     
    4242(require-library lolevel)
    4343
    4444(module autoload
    45   ((autoload global-ref))
     45  (autoload)
    4646
    4747(import scheme chicken lolevel)
    4848
    … …  
    6868                    (,(rename 'condition-case)
    6969                     (,(rename 'begin)
    7070                       (,(rename 'require) ',unit)
    71                        (,(rename 'let) ((,(rename 'tmp)
    72                                          (,(rename 'global-ref) ',full-name)))
     71                       (,(rename 'let) ((,(rename 'tmp) ,full-name))
    7372                         (,(rename 'set!) ,alias ,(rename 'tmp))
    7473                         (,(rename 'apply)
    7574                          ,(rename 'tmp)
    … …  
    8281                            ,(rename 'args))))))
    8382                 `(,(rename 'define) (,alias . ,(rename 'args))
    8483                   (,(rename 'require) ',unit)
    85                    (,(rename 'let) ((,(rename 'tmp)
    86                                      (,(rename 'global-ref) ',full-name)))
     84                   (,(rename 'let) ((,(rename 'tmp) ,full-name))
    8785                    (,(rename 'set!) ,alias ,(rename 'tmp))
    8886                    (,(rename 'apply)
    8987                     ,(rename 'tmp)