Changeset 12948 in project for chicken/trunk/support.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/support.scm

    r12937 r12948  
    6767  generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration
    6868  foreign-argument-conversion foreign-result-conversion final-foreign-type debugging
    69   constant-declarations process-lambda-documentation big-fixnum? sort-symbols
     69  constant-declarations process-lambda-documentation big-fixnum? sort-symbols llist-length
    7070  export-dump-hook intrinsic? node->sexpr emit-global-inline-file inline-max-size
    7171  make-random-name foreign-type-convert-result foreign-type-convert-argument)
     
    302302(define (process-lambda-documentation id doc proc)
    303303  proc)                                 ; Hook this
     304
     305(define (llist-length llist)
     306  (##core#inline "C_u_i_length" llist))
    304307
    305308
Note: See TracChangeset for help on using the changeset viewer.