Changeset 14828 in project for chicken/trunk/support.scm


Ignore:
Timestamp:
05/29/09 14:44:07 (10 years ago)
Author:
felix winkelmann
Message:

merged scrutiny branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/support.scm

    r14799 r14828  
    6969  constant-declarations process-lambda-documentation big-fixnum? sort-symbols llist-length
    7070  export-dump-hook intrinsic? node->sexpr emit-global-inline-file inline-max-size
    71   make-random-name foreign-type-convert-result foreign-type-convert-argument)
     71  make-random-name foreign-type-convert-result foreign-type-convert-argument
     72  load-identifier-database)
    7273
    7374
     
    12921293                                  append mode
    12931294    -no-lambda-info              omit additional procedure-information
     1295    -scrutinize                  perform local flow analysis
     1296    -types FILENAME              load additional type database
    12941297
    12951298  Optimization options:
     
    15321535(define cdb-get get)
    15331536(define cdb-put! put!)
     1537
     1538
     1539;;; Load support files
     1540
     1541(define (load-identifier-database name)
     1542  (and-let* ((rp (repository-path))
     1543             (dbfile (file-exists? (make-pathname rp name))))
     1544    (when verbose-mode
     1545      (printf "loading identifier database ~a ...~%" dbfile))
     1546    (for-each
     1547     (lambda (e)
     1548       (##sys#put!
     1549        (car e) '##core#db
     1550        (append (or (##sys#get (car e) '##core#db) '()) (list (cdr e))) ))
     1551     (read-file dbfile))))
Note: See TracChangeset for help on using the changeset viewer.