Ignore:
Timestamp:
08/01/08 01:17:42 (12 years ago)
Author:
felix winkelmann
Message:

re-loading imported module into interpreter incorrectly renamed export list (export-lists are now sytax-stripped); started with guerilla setup

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/hygienic/compiler.scm

    r11401 r11524  
    733733                                (or (eq? #t (caddr x))
    734734                                    (map (lambda (exp)
    735                                            (cond ((symbol? exp) (lookup exp se))
     735                                           (cond ((symbol? exp) exp)
    736736                                                 ((and (pair? exp)
    737737                                                       (let loop ((exp exp))
     
    739739                                                             (and (symbol? (car exp))
    740740                                                                  (loop (cdr exp))))))
    741                                                   (map (cut lookup <> se) exp) )
     741                                                  exp)
    742742                                                 (else
    743743                                                  (##sys#syntax-error-hook
    744744                                                   'module
    745745                                                   "invalid export syntax" exp name))))
    746                                          (caddr x)))))
     746                                         (##sys#strip-syntax (caddr x))))))
    747747                          (when (##sys#current-module)
    748748                            (##sys#syntax-error-hook 'module "modules may not be nested" name))
Note: See TracChangeset for help on using the changeset viewer.