- Timestamp:
- 05/31/20 01:01:10 (8 months ago)
- 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 3 3 4 4 ((synopsis "The SLIB applicative routines for arrays library") 5 (version "1.1. 0")5 (version "1.1.1") 6 6 (author "Aubrey Jaffer") 7 7 (maintainer "[[kon lovett]]") -
release/5/slib-arraymap/trunk/slib-arraymap.scm
r38545 r38719 16 16 (import scheme) 17 17 (import (chicken module)) 18 (import (only (chicken base) include identity sub1 add1 cut))18 (import (only (chicken base) include)) 19 19 (import (chicken type)) 20 (import (only (srfi 1) last-pair))21 20 (import (srfi 63)) 21 22 ;;; 23 24 (include "slib-compat") 22 25 23 26 ;; Types … … 43 46 44 47 (define (array-fold proc seed . ras) 48 (import (only (chicken base) sub1 add1 cut)) 45 49 (let rafo ((rdims (array-dimensions (car ras))) (inds '())) 46 50 (if (null? (cdr rdims))
Note: See TracChangeset
for help on using the changeset viewer.