Changeset 38719 in project for release

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:

• slib-arraymap.egg (modified) (1 diff)
• slib-arraymap.scm (modified) (2 diffs)
• slib-compat.scm (added)

release/5/slib-arraymap/trunk/slib-arraymap.egg

@@ -3 +3 @@
 
 ((synopsis "The SLIB applicative routines for arrays library")
- (version "1.1.0")
+ (version "1.1.1")
  (author "Aubrey Jaffer")
  (maintainer "[[kon lovett]]")

release/5/slib-arraymap/trunk/slib-arraymap.scm

@@ -16 +16 @@
 (import scheme)
 (import (chicken module))
-(import (only (chicken base) include identity sub1 add1 cut))
+(import (only (chicken base) include))
 (import (chicken type))
-(import (only (srfi 1) last-pair))
 (import (srfi 63))
+
+;;;
+
+(include "slib-compat")
 
 ;; Types
@@ -43 +46 @@
 
 (define (array-fold proc seed . ras)
+  (import (only (chicken base) sub1 add1 cut))
   (let rafo ((rdims (array-dimensions (car ras))) (inds '()))
     (if (null? (cdr rdims))