Ignore:
Timestamp:
09/21/09 17:43:58 (10 years ago)
Author:
kon
Message:

Better '%list-every/1'

File:
1 edited

Legend:

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

    r15951 r16016  
    719719
    720720(define-inline (%list-every/1 pred? ls)
    721   (let loop ((ls ls) (last #t))
    722     (if (%null? ls) last
    723         (let ((this (pred? (%car ls))))
    724           (and this
    725                (loop (%cdr ls) this)) ) ) ) )
     721  (let loop ((ls ls))
     722    (or (%null? ls)
     723        (and (pred? (%car ls))
     724             (loop (%cdr ls))) ) ) )
    726725
    727726(define-inline (%list-length ls0)
Note: See TracChangeset for help on using the changeset viewer.