Changeset 12803 in project for chicken/trunk


Ignore:
Timestamp:
12/09/08 11:10:36 (12 years ago)
Author:
felix winkelmann
Message:

slightly more useful warning on missing import

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/batch-driver.scm

    r12789 r12803  
    392392         (##sys#put!
    393393          (car e) '##core#db
    394           (append (or (##sys#get (car e) '##core#db) '()) (cdr e))) )
     394          (append (or (##sys#get (car e) '##core#db) '()) (list (cdr e))) ))
    395395       (read-file dbfile)))
    396396
  • chicken/trunk/expand.scm

    r12797 r12803  
    15841584                                       #f)
    15851585                                      (else (##sys#module-rename id name)))))))
    1586                        (loop (cdr xl))))))))
    1587          (suggest '()))
    1588     (define (join lst)
    1589       (string-append
    1590        (symbol->string (car lst))
    1591        (let loop ((lst (cdr lst)))
    1592          (if (null? lst)
    1593              ""
    1594              (string-append " " (symbol->string (car lst)) (loop (cdr lst)))))))
     1586                       (loop (cdr xl)))))))))
    15951587    (for-each
    15961588     (lambda (u)
     
    15991591         (##sys#warn "reference to possibly unbound identifier" u)
    16001592         (and-let* ((a (##sys#get u '##core#db)))
    1601            (let ((m (cadr a)))
    1602              (when (and (= (length a) 2) (not (memq m suggest)))
    1603                (set! suggest (cons m suggest)))))))
     1593           (if (= 1 (length a))
     1594               (##sys#warn
     1595                (string-append
     1596                 "  suggesting: `(import " (symbol->string (cadar a))
     1597                 ")'"))
     1598               (##sys#warn
     1599                (string-append
     1600                 "  suggesting one of:\n"
     1601                 (let loop ((lst a))
     1602                   (if (null? lst)
     1603                       ""
     1604                       (string-append
     1605                        "Warning:     `(import " (symbol->string (cadar lst)) ")'\n"
     1606                        (loop (cdr lst)))))))))))
    16041607     (module-undefined-list mod))
    1605     (when (pair? suggest)
    1606       (##sys#warn
    1607        (string-append
    1608         "suggesting to add `(import "
    1609         (join suggest)
    1610         ")' to module `"
    1611         (symbol->string name)
    1612         "'")))
    16131608    (when missing
    16141609      (##sys#error "module unresolved" name))
Note: See TracChangeset for help on using the changeset viewer.