Ignore:
Timestamp:
07/21/10 20:38:21 (10 years ago)
Author:
Kon Lovett
Message:

Added section.

File:
1 edited

Legend:

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

    r14018 r18914  
    2828
    2929(define (group/key keyproc ls #!optional (equality equal?))
    30   (##sys#check-closure keyproc 'group/key)
    31   (##sys#check-closure equality 'group/key)
    3230  (let loop ((ls ls) (acc '()))
    3331    (if (null? ls) acc #;(reverse! acc)
     
    4341
    4442(define (make-less-than/key keyproc #!optional (less-than <))
    45   (##sys#check-closure keyproc 'make-less-than/key)
    46   (##sys#check-closure less-than 'make-less-than/key)
    4743  (lambda (a b) (less-than (keyproc a) (keyproc b)) ) )
    4844
     
    5450
    5551(define (make-equal/key keyproc #!optional (equal =))
    56   (##sys#check-closure keyproc 'make-equal/key)
    57   (##sys#check-closure equal 'make-equal/key)
    5852  (lambda (a b) (equal (keyproc a) (keyproc b)) ) )
    5953
Note: See TracChangeset for help on using the changeset viewer.