Changeset 37843 in project


Ignore:
Timestamp:
08/05/19 13:43:24 (4 months ago)
Author:
felix winkelmann
Message:

sequences: recovered working version 0.6, tagged and restored WIP by iraikov (hopefully)

Location:
release/5/sequences/tags/0.6
Files:
3 edited
1 copied

Legend:

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

    r36461 r37843  
    4343                   union
    4444                   difference
    45                    zip
    4645                   )
    4746
  • release/5/sequences/tags/0.6/sequences.scm

    r37835 r37843  
    100100(define-type <vector> vector? <random-access-sequence>)
    101101(define-type <string> string? <random-access-sequence>)
     102
     103(print (symbol-plist '<random-access-sequence>))
    102104
    103105(define make-ras make-random-access-sequence)
  • release/5/sequences/tags/0.6/tests/run.scm

    r36461 r37843  
    22
    33
    4 (import (rename sequences (take s-take) (drop s-drop) (zip s-zip)
     4(import (rename sequences (take s-take) (drop s-drop)
    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        
    7261(let ((s '(a b c)))
    7362  (set! (elt s 1) 'x)
Note: See TracChangeset for help on using the changeset viewer.