Changeset 36461 in project


Ignore:
Timestamp:
08/29/18 06:41:28 (3 weeks ago)
Author:
iraikov
Message:

C5 port of cis

Location:
release/5
Files:
7 added
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/sequences/trunk/sequences-module.scm

    r36268 r36461  
    4343                   union
    4444                   difference
     45                   zip
    4546                   )
    4647
  • release/5/sequences/trunk/sequences.scm

    r36271 r36461  
    100100(define-type <vector> vector? <random-access-sequence>)
    101101(define-type <string> string? <random-access-sequence>)
    102 
    103 (print (symbol-plist '<random-access-sequence>))
    104102
    105103(define make-ras make-random-access-sequence)
  • release/5/sequences/trunk/tests/run.scm

    r36271 r36461  
    22
    33
    4 (import (rename sequences (take s-take) (drop s-drop)
     4(import (rename sequences (take s-take) (drop s-drop) (zip s-zip)
    55                (partition s-partition)))
    66(import test)
     
    5959(test 'b (elt l 1))
    6060
     61(define z
     62 (s-zip
     63  '(A B C) #(a b c)))
     64
     65(print z)
     66(define it (iterator z))
     67
     68(print (elt z it))
     69(advance! it)
     70(print (elt z it))
     71       
    6172(let ((s '(a b c)))
    6273  (set! (elt s 1) 'x)
Note: See TracChangeset for help on using the changeset viewer.