Changeset 14550 in project


Ignore:
Timestamp:
05/07/09 09:06:08 (11 years ago)
Author:
Ivan Raikov
Message:

ported srfi-42 to Chicken 4

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-42/trunk/srfi-42.scm

    r14549 r14550  
    1010(module srfi-42
    1111
    12         ( (do-ec do-ec:do) list-ec append-ec string-ec
     12        ( do-ec list-ec append-ec string-ec
    1313          string-append-ec vector-ec vector-of-length-ec
    1414          sum-ec product-ec min-ec max-ec any?-ec
     
    1616          :list :string (:vector ec-:vector-filter) :range :real-range
    1717          :char-range :port :integers :dispatched
    18           :do :let :parallel :while :until )
     18          :do :let :parallel :while :until :
     19          :-dispatch :-dispatch-ref :-dispatch-set! make-initial-:-dispatch)
    1920                       
    2021         
    2122
    2223   (import scheme chicken )
     24   (require-extension srfi-1)
    2325
    2426
     
    858860  (syntax-rules ()
    859861    ((list-ec etc1 etc ...)
    860      (reverse (fold-ec '() etc1 etc ... cons)) )))
     862     (reverse! (fold-ec '() etc1 etc ... cons)) )))
    861863
    862864; Alternative: Reverse can safely be replaced by reverse! if you have it.
Note: See TracChangeset for help on using the changeset viewer.