Changeset 33513 in project


Ignore:
Timestamp:
07/24/16 13:03:03 (3 years ago)
Author:
juergen
Message:

arrays 0.3 with array-tail and array-ref

Location:
release/4/arrays
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/arrays/tags/0.3/arrays.scm

    r32977 r33513  
    9292   array-apply array-reverse array-reverse! array-swap! array-length
    9393   array-range array-item array-split-at array-split-with
    94    array-drop array-drop-while array-take array-take-while
     94   array-tail array-ref array-drop array-drop-while array-take array-take-while
    9595   array-append array-append!  array-map array-mappend array-handler
    9696   array-for-each array-filter array-equ?  array-equal?  array-eqv?
     
    463463    (((array-handler arr) 'item) (fx+ k (array-from arr))))
    464464
     465(define (array-ref arr k)
     466  (array-item k arr))
     467
    465468(define (array-update! k item arr)
    466469  (assert* 'array-update!
     
    753756(define (array-drop k arr)
    754757  (array-range k (array-length arr) arr))
     758
     759(define (array-tail arr k)
     760  (array-drop k arr))
    755761
    756762(define (array-split-with ok? arr)
     
    11261132      (array-count arr)
    11271133      (array-range from upto arr) ; subarray
    1128       (array-item k arr) ; ref
     1134      (array-item k arr)
     1135      (array-ref arr k)
    11291136      (array-split-at k arr)
    11301137      (array-split-with ok? arr)
    11311138      (array-drop k arr)
     1139      (array-tail arr k)
    11321140      (array-drop-while ok? arr)
    11331141      (array-take k arr)
  • release/4/arrays/tags/0.3/arrays.setup

    r32977 r33513  
    99 'arrays
    1010 '("arrays.so" "array-handlers.import.so" "arrays.import.so" "array-sets.import.so")
    11  '((version "0.2.1")))
     11 '((version "0.3")))
    1212
  • release/4/arrays/trunk/arrays.scm

    r32977 r33513  
    9292   array-apply array-reverse array-reverse! array-swap! array-length
    9393   array-range array-item array-split-at array-split-with
    94    array-drop array-drop-while array-take array-take-while
     94   array-tail array-ref array-drop array-drop-while array-take array-take-while
    9595   array-append array-append!  array-map array-mappend array-handler
    9696   array-for-each array-filter array-equ?  array-equal?  array-eqv?
     
    463463    (((array-handler arr) 'item) (fx+ k (array-from arr))))
    464464
     465(define (array-ref arr k)
     466  (array-item k arr))
     467
    465468(define (array-update! k item arr)
    466469  (assert* 'array-update!
     
    753756(define (array-drop k arr)
    754757  (array-range k (array-length arr) arr))
     758
     759(define (array-tail arr k)
     760  (array-drop k arr))
    755761
    756762(define (array-split-with ok? arr)
     
    11261132      (array-count arr)
    11271133      (array-range from upto arr) ; subarray
    1128       (array-item k arr) ; ref
     1134      (array-item k arr)
     1135      (array-ref arr k)
    11291136      (array-split-at k arr)
    11301137      (array-split-with ok? arr)
    11311138      (array-drop k arr)
     1139      (array-tail arr k)
    11321140      (array-drop-while ok? arr)
    11331141      (array-take k arr)
  • release/4/arrays/trunk/arrays.setup

    r32977 r33513  
    99 'arrays
    1010 '("arrays.so" "array-handlers.import.so" "arrays.import.so" "array-sets.import.so")
    11  '((version "0.2.1")))
     11 '((version "0.3")))
    1212
Note: See TracChangeset for help on using the changeset viewer.