Ignore:
Timestamp:
04/06/08 01:34:34 (12 years ago)
Author:
felix winkelmann
Message:

low-level module attempt; converted some more macros

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/beyond-hope/compiler.scm

    r10345 r10359  
    480480        x) )
    481481
    482   (define (resolve-atom x se dest)
     482  (define (resolve-variable x se dest)
    483483    (cond [(and constants-used (##sys#hash-table-ref constant-table x))
    484484           => (lambda (val) (walk (car val) se dest)) ]
     
    505505             (if (symbol? x2)
    506506                 x2
    507                  x))]))
     507                 (##sys#rename-global x se)))]))
    508508
    509509  (define (walk x se dest)
    510510    (cond ((symbol? x)
    511            (##sys#alias-global-hook (resolve-atom x se dest)))
     511           (resolve-variable x se dest))
    512512          ((not-pair? x)
    513513           (if (constant? x)
     
    544544                                (walk (cadddr x) se #f) ) ) )
    545545
    546                         ((quote)
    547                          (##sys#check-syntax 'quote x '(quote _) #f se)
     546                        ((quote ##core#syntax)
     547                         (##sys#check-syntax 'quote x '(_ _) #f se)
    548548                         `(quote ,(##sys#strip-syntax (cadr x))))
    549 
    550                         ((##core#syntax)
    551                          `(quote ,(cadr x)))
    552549
    553550                        ((##core#check)
     
    718715                                [val (walk (caddr x) se var0)] )
    719716                           (when (eq? var var0) ; global?
    720                              (set! var (##sys#alias-global-hook var))
     717                             (set! var (##sys#rename-global var se))
    721718                             (when safe-globals-flag
    722719                               (set! always-bound-to-procedure
Note: See TracChangeset for help on using the changeset viewer.