Changeset 15830 in project


Ignore:
Timestamp:
09/12/09 14:10:59 (10 years ago)
Author:
felix winkelmann
Message:

strip module names

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r15770 r15830  
    785785
    786786                       ((##core#module)
    787                         (let* ((name (lookup (cadr x) se))
     787                        (let* ((name (##sys#strip-syntax (cadr x)))
    788788                               (exports
    789789                                (or (eq? #t (caddr x))
  • chicken/trunk/eval.scm

    r15823 r15830  
    649649
    650650                         ((##core#module)
    651                           (let* ((name (rename (cadr x) se))
     651                          (let* ((name (##sys#strip-syntax (cadr x)))
    652652                                 (exports
    653653                                  (or (eq? #t (caddr x))
  • chicken/trunk/expand.scm

    r15772 r15830  
    13051305    `(##core#module
    13061306      ,(cadr x)
    1307       ,(if (eq? '* (strip-syntax (caddr x)))
     1307      ,(if (eq? '* (##sys#strip-syntax (caddr x)))
    13081308           #t
    13091309           (caddr x))
Note: See TracChangeset for help on using the changeset viewer.