Changeset 15578 in project for chicken/trunk


Ignore:
Timestamp:
08/26/09 16:34:54 (10 years ago)
Author:
felix winkelmann
Message:

only list globals that are not keywords

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/support.scm

    r15543 r15578  
    782782  (##sys#hash-table-for-each
    783783   (lambda (sym plist)
    784      (when (and (assq 'global plist)
     784     (when (and (not (keyword? sym))
     785                (assq 'global plist)
    785786                (not (assq 'assigned plist)) )
    786787       (write sym)
     
    791792  (##sys#hash-table-for-each
    792793   (lambda (sym plist)
    793      (when (and (assq 'global plist)
     794     (when (and (not (keyword? sym))
     795                (assq 'global plist)
    794796                (assq 'assigned plist))
    795797       (write sym)
     
    800802  (##sys#hash-table-for-each
    801803   (lambda (sym plist)
    802      (when (assq 'global plist)
     804     (when (and (not (keyword? sym)) (assq 'global plist))
    803805       (let ((a (assq 'references plist)))
    804806         (write (list sym (if a (length (cdr a)) 0)))
Note: See TracChangeset for help on using the changeset viewer.