Changeset 14874 in project for chicken/trunk/scrutinizer.scm


Ignore:
Timestamp:
06/03/09 13:25:11 (11 years ago)
Author:
felix winkelmann
Message:

global inlining fixes; other small things

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/scrutinizer.scm

    r14870 r14874  
    656656         (##sys#put! name '##core#type new)))
    657657     (read-file dbfile))))
    658 
    659 (define (source-info->line info)
    660   (if (list? info)
    661       (cadr info)
    662       (and info (->string info))) )
Note: See TracChangeset for help on using the changeset viewer.