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

Added section.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.