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

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:

• chicken/trunk/optimizer.scm (modified) (2 diffs)

chicken/trunk/optimizer.scm

@@ -31 +31 @@
   compiler-arguments process-command-line perform-lambda-lifting!
   default-standard-bindings default-extended-bindings
-  foldable-bindings
+  foldable-bindings llist-length
   installation-home decompose-lambda-list external-to-pointer
   copy-node! variable-visible? mark-variable intrinsic?
@@ -363 +363 @@
                                       [(and (test fid 'explicit-rest)
                                             (not (memq n rest-consers)) ) ; make sure we haven't inlined rest-list already
-                                       (let ([n (length llist)])
+                                       (let ([n (llist-length llist)])
                                          (if (< (length args) n)
                                              (walk-generic n class params subs)