Changeset 38719 in project for release


Ignore:
Timestamp:
05/31/20 01:01:10 (2 months ago)
Author:
Kon Lovett
Message:

add common slib-compat

Location:
release/5/slib-arraymap/trunk
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/slib-arraymap/trunk/slib-arraymap.egg

    r38457 r38719  
    33
    44((synopsis "The SLIB applicative routines for arrays library")
    5  (version "1.1.0")
     5 (version "1.1.1")
    66 (author "Aubrey Jaffer")
    77 (maintainer "[[kon lovett]]")
  • release/5/slib-arraymap/trunk/slib-arraymap.scm

    r38545 r38719  
    1616(import scheme)
    1717(import (chicken module))
    18 (import (only (chicken base) include identity sub1 add1 cut))
     18(import (only (chicken base) include))
    1919(import (chicken type))
    20 (import (only (srfi 1) last-pair))
    2120(import (srfi 63))
     21
     22;;;
     23
     24(include "slib-compat")
    2225
    2326;; Types
     
    4346
    4447(define (array-fold proc seed . ras)
     48  (import (only (chicken base) sub1 add1 cut))
    4549  (let rafo ((rdims (array-dimensions (car ras))) (inds '()))
    4650    (if (null? (cdr rdims))
Note: See TracChangeset for help on using the changeset viewer.