Changeset 18914 in project for release/4/combinators


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

Added section.

Location:
release/4/combinators
Files:
10 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/combinators/tags/1.1.0/combinators.meta

    r14103 r18914  
    1010 (files
    1111  "tests"
     12  "section-combinators.scm"
    1213  "logical-combinators.scm"
    1314  "sort-combinators.scm"
  • release/4/combinators/tags/1.1.0/combinators.setup

    r14018 r18914  
    55(verify-extension-name "combinators")
    66
    7 (setup-shared-extension-module 'logical-combinators (extension-version "1.0.0"))
    8 (setup-shared-extension-module 'sort-combinators (extension-version "1.0.0"))
    9 (setup-shared-extension-module 'stack-combinators (extension-version "1.0.0"))
     7(setup-shared-extension-module 'section-combinators (extension-version "1.1.0")
     8  #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
     9(setup-shared-extension-module 'logical-combinators (extension-version "1.1.0")
     10  #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
     11(setup-shared-extension-module 'sort-combinators (extension-version "1.1.0")
     12  #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
     13(setup-shared-extension-module 'stack-combinators (extension-version "1.1.0")
     14  #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
    1015
    11 (install-extension 'combinators '() `((version ,(extension-version "1.0.0"))))
     16(install-extension 'combinators '() `((version ,(extension-version "1.1.0"))))
  • release/4/combinators/tags/1.1.0/logical-combinators.scm

    r14021 r18914  
    2828  (let loop ((args args))
    2929    (cond ((null? args) #f)
    30           ((car args) => identity)
    31           (else (loop (cdr args)) ) ) ) )
     30          ((car args)   => identity)
     31          (else
     32            (loop (cdr args)) ) ) ) )
    3233
    3334) ;module logical-combinators
  • release/4/combinators/tags/1.1.0/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
  • release/4/combinators/tags/1.1.0/stack-combinators.scm

    r14103 r18914  
    33;;;; Portions from a 'comp.lang.scheme' posting by "wayo.cavazos@gmail.com"
    44
    5 (declare
    6   (usual-integrations)
    7   (generic)
    8   (inline)
    9   (local)
    10   (no-procedure-checks) )
     5(module stack-combinators
    116
    12 (module stack-combinators (;export
    13   uni uni2 uni3 #;uni@
    14   bi bi2 bi3 bi@
    15   tri tri2 tri3 tri@
    16   dip
    17   dup dupd
    18   swap
    19   drop drop/2)
     7  (;export
     8    uni uni2 uni3 uni@
     9    bi bi2 bi3 bi@
     10    tri tri2 tri3 tri@
     11    dip
     12    dup dupd
     13    swap
     14    drop drop/2)
    2015 
    21 (import scheme chicken)
     16  (import scheme chicken)
    2217
    2318;;
     
    4439    (()           (lambda (c) (uni3 c)))))
    4540
    46 #; ;UNUSED
    47 (define uni@
     41(define uni@    ; for completeness only
    4842  (case-lambda
    4943    ((x f c)  (c (f x)))
  • release/4/combinators/trunk/combinators.meta

    r14103 r18914  
    1010 (files
    1111  "tests"
     12  "section-combinators.scm"
    1213  "logical-combinators.scm"
    1314  "sort-combinators.scm"
  • release/4/combinators/trunk/combinators.setup

    r14018 r18914  
    55(verify-extension-name "combinators")
    66
    7 (setup-shared-extension-module 'logical-combinators (extension-version "1.0.0"))
    8 (setup-shared-extension-module 'sort-combinators (extension-version "1.0.0"))
    9 (setup-shared-extension-module 'stack-combinators (extension-version "1.0.0"))
     7(setup-shared-extension-module 'section-combinators (extension-version "1.1.0")
     8  #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
     9(setup-shared-extension-module 'logical-combinators (extension-version "1.1.0")
     10  #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
     11(setup-shared-extension-module 'sort-combinators (extension-version "1.1.0")
     12  #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
     13(setup-shared-extension-module 'stack-combinators (extension-version "1.1.0")
     14  #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
    1015
    11 (install-extension 'combinators '() `((version ,(extension-version "1.0.0"))))
     16(install-extension 'combinators '() `((version ,(extension-version "1.1.0"))))
  • release/4/combinators/trunk/logical-combinators.scm

    r14021 r18914  
    2828  (let loop ((args args))
    2929    (cond ((null? args) #f)
    30           ((car args) => identity)
    31           (else (loop (cdr args)) ) ) ) )
     30          ((car args)   => identity)
     31          (else
     32            (loop (cdr args)) ) ) ) )
    3233
    3334) ;module logical-combinators
  • 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
  • release/4/combinators/trunk/stack-combinators.scm

    r14103 r18914  
    33;;;; Portions from a 'comp.lang.scheme' posting by "wayo.cavazos@gmail.com"
    44
    5 (declare
    6   (usual-integrations)
    7   (generic)
    8   (inline)
    9   (local)
    10   (no-procedure-checks) )
     5(module stack-combinators
    116
    12 (module stack-combinators (;export
    13   uni uni2 uni3 #;uni@
    14   bi bi2 bi3 bi@
    15   tri tri2 tri3 tri@
    16   dip
    17   dup dupd
    18   swap
    19   drop drop/2)
     7  (;export
     8    uni uni2 uni3 uni@
     9    bi bi2 bi3 bi@
     10    tri tri2 tri3 tri@
     11    dip
     12    dup dupd
     13    swap
     14    drop drop/2)
    2015 
    21 (import scheme chicken)
     16  (import scheme chicken)
    2217
    2318;;
     
    4439    (()           (lambda (c) (uni3 c)))))
    4540
    46 #; ;UNUSED
    47 (define uni@
     41(define uni@    ; for completeness only
    4842  (case-lambda
    4943    ((x f c)  (c (f x)))
Note: See TracChangeset for help on using the changeset viewer.