Changeset 12948 in project for chicken/trunk/compiler.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/compiler.scm (modified) (3 diffs)

chicken/trunk/compiler.scm

@@ -271 +271 @@
   compiler-arguments process-command-line explicit-use-flag
   default-standard-bindings default-extended-bindings
-  foldable-bindings
+  foldable-bindings llist-length
   installation-home decompose-lambda-list external-to-pointer defconstant-bindings constant-declarations
   copy-node! error-is-extended-binding toplevel-scope toplevel-lambda-id
@@ -1236 +1236 @@
              (##sys#check-syntax 'lambda lexp '(lambda lambda-list . #(_ 1)) #f se)
              (let ([llist (cadr lexp)])
-               (if (and (proper-list? llist) (= (length llist) (length args)))
+               (if (and (proper-list? llist) (= (llist-length llist) (length args)))
                    (walk `(,(macro-alias 'let se)
                            ,(map list llist args) ,@(cddr lexp)) se dest)
@@ -2176 +2176 @@
                                                      (= (length refs) (length sites)) 
                                                      (proper-list? llist) ) ] )
-                                          (when (and name custom (not (= (length llist) (length (cdr subs)))))
+                                          (when (and name 
+                                                     custom
+                                                     (not (= (llist-length llist) (length (cdr subs)))))
                                             (quit
                                              "known procedure called with wrong number of arguments: ~A"