Changeset 13534 in project for chicken


Ignore:
Timestamp:
03/06/09 07:49:18 (11 years ago)
Author:
Kon Lovett
Message:

Wrong arg order for map/etc.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-primitive-object-inlines.scm

    r13532 r13534  
    519519                 (find-elm (%cdr ls) ls) ] ) ) )
    520520
    521 (define-inline (%list-fold-1 ls0 func init)
     521(define-inline (%list-fold-1 func init ls0)
    522522  ;(assert (and (proper-list? ls0) (procedure? func)))
    523523  (let loop ([ls ls0] [acc init])
     
    525525        (loop (%cdr ls) (func (%car ls) acc)) ) ) )
    526526
    527 (define-inline (%list-map-1 ls0 func)
     527(define-inline (%list-map-1 func ls0)
    528528  ;(assert (and (proper-list? ls0) (procedure? func)))
    529529  (let loop ([ls ls0])
     
    531531        (%cons (func (%car ls)) (loop (%cdr ls))) ) ) )
    532532
    533 (define-inline (%list-for-each-1 ls0 proc)
     533(define-inline (%list-for-each-1 proc ls0)
    534534  ;(assert (and (proper-list? ls0) (procedure? proc)))
    535535  (let loop ([ls ls0])
Note: See TracChangeset for help on using the changeset viewer.