Changeset 12609 in project for chicken/trunk/expand.scm


Ignore:
Timestamp:
11/27/08 09:23:01 (13 years ago)
Author:
felix winkelmann
Message:
  • updated NEWS and chicken-install.1
  • added import suggestion to compiler using modules.db
  • renamed db file to "modules.db"
File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/expand.scm

    r12595 r12609  
    15781578                                        id) )
    15791579                                      (else (##sys#module-rename id name)))))))
    1580                        (loop (cdr xl)))))))))
     1580                       (loop (cdr xl))))))))
     1581         (suggest '()))
     1582    (define (join lst)
     1583      (string-append
     1584       (symbol->string (car lst))
     1585       (let loop ((lst (cdr lst)))
     1586         (if (null? lst)
     1587             ""
     1588             (string-append " " (symbol->string (car lst)) (loop (cdr lst)))))))
    15811589    (for-each
    15821590     (lambda (u)
    15831591       (unless (memq u elist)
    1584          (##sys#warn "reference to possibly unbound identifier" u)))
     1592         (##sys#warn "reference to possibly unbound identifier" u)
     1593         (and-let* ((a (##sys#get u '##core#db)))
     1594           (let ((m (cadr a)))
     1595             (unless (memq m suggest)
     1596               (set! suggest (cons m suggest)))))))
    15851597     (module-undefined-list mod))
     1598    (when (pair? suggest)
     1599      (##sys#warn
     1600       (string-append
     1601        "suggesting to add `(import "
     1602        (join suggest)
     1603        ")' to module `"
     1604        (symbol->string name)
     1605        "'")))
    15861606    (let* ((exports
    15871607            (map (lambda (exp)
Note: See TracChangeset for help on using the changeset viewer.