Ignore:
Timestamp:
08/27/17 03:59:50 (3 years ago)
Author:
Kon Lovett
Message:

re-flow

File:
1 edited

Legend:

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

    r19028 r34400  
    44(module section-combinators
    55
    6   (;export
    7     left-section right-section
    8     crop-left crop-right
    9     reversed
    10     arguments-chain arguments-each arguments-all)
     6(;export
     7  left-section right-section
     8  crop-left crop-right
     9  reversed
     10  arguments-chain arguments-each arguments-all)
    1111
    12   (import
    13     scheme
    14     chicken
    15     (only srfi-1 drop drop-right circular-list)
    16     (only data-structures identity))
     12(import
     13  scheme
     14  chicken
     15  (only (srfi 1) drop drop-right circular-list)
     16  (only data-structures identity))
     17(require-library data-structures (srfi 1))
    1718
    18   (require-library srfi-1)
    19 
    20   (declare
    21     (type
    22       (left-section (procedure ((procedure (#!rest) *) #!rest) (procedure (#!rest) *)))
    23       (right-section (procedure ((procedure (#!rest) *) #!rest) (procedure (#!rest) *)))
    24       (reversed (procedure ((procedure (#!rest) *)) (procedure (#!rest) *)))
    25       (crop-left (procedure ((procedure (#!rest) *) fixnum) (procedure (#!rest) *)))
    26       (crop-right (procedure ((procedure (#!rest) *) fixnum) (procedure (#!rest) *)))
    27       (arguments-chain (procedure (#!rest) (procedure (#!rest) *)))
    28       (arguments-each (procedure (#!rest) (procedure (#!rest) list)))
    29       (arguments-all (procedure (#!rest) (procedure (#!rest) list))) ) )
     19(declare
     20  (type
     21    (left-section (procedure ((procedure (#!rest) *) #!rest) (procedure (#!rest) *)))
     22    (right-section (procedure ((procedure (#!rest) *) #!rest) (procedure (#!rest) *)))
     23    (reversed (procedure ((procedure (#!rest) *)) (procedure (#!rest) *)))
     24    (crop-left (procedure ((procedure (#!rest) *) fixnum) (procedure (#!rest) *)))
     25    (crop-right (procedure ((procedure (#!rest) *) fixnum) (procedure (#!rest) *)))
     26    (arguments-chain (procedure (#!rest) (procedure (#!rest) *)))
     27    (arguments-each (procedure (#!rest) (procedure (#!rest) list)))
     28    (arguments-all (procedure (#!rest) (procedure (#!rest) list))) ) )
    3029
    3130;;; Section
     
    5655;;; Argument
    5756
    58   (include "arguments-helpers.inc")
     57(include "arguments-helpers.inc")
    5958
    6059;; arguments-chain
Note: See TracChangeset for help on using the changeset viewer.