Changeset 15486 in project for chicken


Ignore:
Timestamp:
08/14/09 19:39:50 (10 years ago)
Author:
felix winkelmann
Message:

added file-lists in misc/, inlining tweaks and fixes

Location:
chicken/branches/inlining
Files:
3 added
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/inlining/optimizer.scm

    r15446 r15486  
    13081308             [argc (length (third params))]
    13091309             [klambdas '()]
    1310              [sites (get db fnvar 'call-sites)]
     1310             [sites (or (get db fnvar 'call-sites) '())]
    13111311             [ksites '()] )
    13121312        (if (and (list? params) (= (length params) 4) (list? (caddr params)))
  • chicken/branches/inlining/support.scm

    r15323 r15486  
    14211421;;; We need this for constant folding:
    14221422
    1423 (define (string-null? x) (string-null? x))
     1423(define (string-null? x)
     1424  (##core#inline "C_i_string_null_p" s))
    14241425
    14251426
Note: See TracChangeset for help on using the changeset viewer.