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


Ignore:
Timestamp:
01/07/09 10:59:13 (11 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/compiler.scm

    r12937 r12948  
    271271  compiler-arguments process-command-line explicit-use-flag
    272272  default-standard-bindings default-extended-bindings
    273   foldable-bindings
     273  foldable-bindings llist-length
    274274  installation-home decompose-lambda-list external-to-pointer defconstant-bindings constant-declarations
    275275  copy-node! error-is-extended-binding toplevel-scope toplevel-lambda-id
     
    12361236             (##sys#check-syntax 'lambda lexp '(lambda lambda-list . #(_ 1)) #f se)
    12371237             (let ([llist (cadr lexp)])
    1238                (if (and (proper-list? llist) (= (length llist) (length args)))
     1238               (if (and (proper-list? llist) (= (llist-length llist) (length args)))
    12391239                   (walk `(,(macro-alias 'let se)
    12401240                           ,(map list llist args) ,@(cddr lexp)) se dest)
     
    21762176                                                     (= (length refs) (length sites))
    21772177                                                     (proper-list? llist) ) ] )
    2178                                           (when (and name custom (not (= (length llist) (length (cdr subs)))))
     2178                                          (when (and name
     2179                                                     custom
     2180                                                     (not (= (llist-length llist) (length (cdr subs)))))
    21792181                                            (quit
    21802182                                             "known procedure called with wrong number of arguments: ~A"
Note: See TracChangeset for help on using the changeset viewer.