Changeset 12596 in project for chicken/trunk/compiler.scm


Ignore:
Timestamp:
11/26/08 16:31:11 (13 years ago)
Author:
felix winkelmann
Message:

fixed import form check (handles aliasing); bumped version to 4.0.0x3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/compiler.scm

    r12595 r12596  
    841841                                                           (pair? (car body))
    842842                                                           (symbol? (caar body))
    843                                                            (not (eq? 'import (or (lookup (caar body) se) (caar body)))))
     843                                                           (let ((imp (or (lookup (caar body) se) (caar body))))
     844                                                             (and (not (memq imp '(import import-for-syntax)))
     845                                                                  ;; can it get any uglier? yes, it can
     846                                                                  (not (eq? imp (cdr (assq 'import ##sys#initial-macro-environment))))
     847                                                                  (not (eq? imp (cdr (assq 'import-for-syntax ##sys#initial-macro-environment)))))))
    844848                                                  (compiler-warning
    845849                                                   'syntax
Note: See TracChangeset for help on using the changeset viewer.