Ignore:
Timestamp:
07/22/10 00:03:13 (10 years ago)
Author:
Kon Lovett
Message:

More sections

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/combinators/trunk/stack-combinators.scm

    r18914 r18918  
    22;;;; Kon Lovett, Mar '09
    33;;;; Portions from a 'comp.lang.scheme' posting by "wayo.cavazos@gmail.com"
     4
     5;These are useless & sigle valued!
    46
    57(module stack-combinators
     
    103105(define tri@
    104106  (case-lambda
    105     ((x y z f g h c)  (c (f x) (g y) (h z)))
    106     ((f g h c)        (lambda (x y z) (tri@ x y z f g h c)))))
     107    ((x y z f c)  (c (f x) (f y) (f z)))
     108    ((f c)        (lambda (x y z) (tri@ x y z f c)))))
    107109
    108110;;
Note: See TracChangeset for help on using the changeset viewer.