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


Ignore:
Timestamp:
11/28/08 09:29:34 (13 years ago)
Author:
felix winkelmann
Message:

various trivial fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/expand.scm

    r12609 r12630  
    15931593         (and-let* ((a (##sys#get u '##core#db)))
    15941594           (let ((m (cadr a)))
    1595              (unless (memq m suggest)
     1595             (when (and (= (length a) 2) (not (memq m suggest)))
    15961596               (set! suggest (cons m suggest)))))))
    15971597     (module-undefined-list mod))
Note: See TracChangeset for help on using the changeset viewer.