Changeset 12948 in project for chicken/trunk/optimizer.scm


Ignore:
Timestamp:
01/07/09 10:59:13 (12 years ago)
Author:
felix winkelmann
Message:

special length procedure in compiler to compute llist lengths (reported by Peter Bex); updated bootstrap tarball

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/optimizer.scm

    r12937 r12948  
    3131  compiler-arguments process-command-line perform-lambda-lifting!
    3232  default-standard-bindings default-extended-bindings
    33   foldable-bindings
     33  foldable-bindings llist-length
    3434  installation-home decompose-lambda-list external-to-pointer
    3535  copy-node! variable-visible? mark-variable intrinsic?
     
    363363                                      [(and (test fid 'explicit-rest)
    364364                                            (not (memq n rest-consers)) ) ; make sure we haven't inlined rest-list already
    365                                        (let ([n (length llist)])
     365                                       (let ([n (llist-length llist)])
    366366                                         (if (< (length args) n)
    367367                                             (walk-generic n class params subs)
Note: See TracChangeset for help on using the changeset viewer.