Changeset 32620 in project


Ignore:
Timestamp:
07/28/15 18:37:43 (5 years ago)
Author:
juergen
Message:

typed-lists 2.2 with cell-error fixed and patch removed

Location:
release/4/typed-lists
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/typed-lists/tags/2.2/tests/run.scm

    r31730 r32620  
    1515    (ilist? nls)
    1616    nls
    17     (define nlst (ilist 0 1 (cell 2) 3 4))
     17    (define cl (cell 2))
     18    (define nlst (ilist 0 1 cl 3 4))
    1819    (ilist? nlst)
    1920    (not (list? nlst))
     
    5354    (ilist-reverse nlst)
    5455    (equal? (ilist->list nlst)
    55             (list 0 1 (cell 2) 3 4))
    56     (equal? (ilist-item 2 nlst) (cell 2))
     56            (list 0 1 cl 3 4))
     57    (xpr:val (ilist-item 2 nlst) ((ilist-item 2 nlst)))
     58    (equal? (ilist-item 2 nlst) cl)
    5759    (cell-set! (ilist-item 2 nlst) 20)
    58     (equal? (ilist-item 2 nlst) (cell 20))
     60    (equal? (ilist-item 2 nlst) cl)
    5961    (= (cell-ref (ilist-item 2 nlst)) 20)
    6062    (= (ilist-length nlst) 5)
    61     (ilist-equal? (ilist-from-upto 2 4 nlst)
    62                   (ilist (cell 20) 3))
    6363    (ilist-equal?  (ilist-append (ilist 0 1 2 3)
    6464                                 (ilist 4 5 6))
     
    184184    (equal? (any-ilist->list (any-ilist-map cell-ref als))
    185185            (make-list 3))
    186     (define alst (any-ilist (lambda (x) #f) 'a "x" (cell 3) #\z))
     186    (define cl (cell 3))
     187    (define alst (any-ilist (lambda (x) #f) 'a "x" cl #\z))
    187188    (procedure? (any-ilist-first alst))
    188189    (any-ilist-equal? (any-ilist-memp cell? alst)
    189                   (any-ilist (cell 3) #\z))
     190                  (any-ilist cl #\z))
    190191    (any-ilist-equal? (any-ilist-member #\z alst)
    191192             (any-ilist-cons #\z (any-ilist-null)))
  • release/4/typed-lists/tags/2.2/typed-lists.setup

    r31730 r32620  
    55(compile -O3 -d0 -s set-functor.import.scm)
    66(compile -O3 -d0 -s _immutable-lists.import.scm)
    7 (process-run "patch immutable-lists.import.scm immutable-lists.patch")
     7;(process-run "patch immutable-lists.import.scm immutable-lists.patch")
    88(compile -O3 -d0 -s immutable-lists.import.scm)
    9 (process-run "patch sets.import.scm sets.patch")
     9;(process-run "patch sets.import.scm sets.patch")
    1010(compile -O3 -d0 -s sets.import.scm)
    1111
     
    1414 '("typed-lists.so" "list-functor.import.so" "set-functor.import.so"
    1515"_immutable-lists.import.so" "immutable-lists.import.so" "sets.import.so")
    16  '((version "2.1")))
     16 '((version "2.2")))
    1717
  • release/4/typed-lists/trunk/tests/run.scm

    r31730 r32620  
    1515    (ilist? nls)
    1616    nls
    17     (define nlst (ilist 0 1 (cell 2) 3 4))
     17    (define cl (cell 2))
     18    (define nlst (ilist 0 1 cl 3 4))
    1819    (ilist? nlst)
    1920    (not (list? nlst))
     
    5354    (ilist-reverse nlst)
    5455    (equal? (ilist->list nlst)
    55             (list 0 1 (cell 2) 3 4))
    56     (equal? (ilist-item 2 nlst) (cell 2))
     56            (list 0 1 cl 3 4))
     57    (xpr:val (ilist-item 2 nlst) ((ilist-item 2 nlst)))
     58    (equal? (ilist-item 2 nlst) cl)
    5759    (cell-set! (ilist-item 2 nlst) 20)
    58     (equal? (ilist-item 2 nlst) (cell 20))
     60    (equal? (ilist-item 2 nlst) cl)
    5961    (= (cell-ref (ilist-item 2 nlst)) 20)
    6062    (= (ilist-length nlst) 5)
    61     (ilist-equal? (ilist-from-upto 2 4 nlst)
    62                   (ilist (cell 20) 3))
    6363    (ilist-equal?  (ilist-append (ilist 0 1 2 3)
    6464                                 (ilist 4 5 6))
     
    184184    (equal? (any-ilist->list (any-ilist-map cell-ref als))
    185185            (make-list 3))
    186     (define alst (any-ilist (lambda (x) #f) 'a "x" (cell 3) #\z))
     186    (define cl (cell 3))
     187    (define alst (any-ilist (lambda (x) #f) 'a "x" cl #\z))
    187188    (procedure? (any-ilist-first alst))
    188189    (any-ilist-equal? (any-ilist-memp cell? alst)
    189                   (any-ilist (cell 3) #\z))
     190                  (any-ilist cl #\z))
    190191    (any-ilist-equal? (any-ilist-member #\z alst)
    191192             (any-ilist-cons #\z (any-ilist-null)))
  • release/4/typed-lists/trunk/typed-lists.setup

    r31730 r32620  
    55(compile -O3 -d0 -s set-functor.import.scm)
    66(compile -O3 -d0 -s _immutable-lists.import.scm)
    7 (process-run "patch immutable-lists.import.scm immutable-lists.patch")
     7;(process-run "patch immutable-lists.import.scm immutable-lists.patch")
    88(compile -O3 -d0 -s immutable-lists.import.scm)
    9 (process-run "patch sets.import.scm sets.patch")
     9;(process-run "patch sets.import.scm sets.patch")
    1010(compile -O3 -d0 -s sets.import.scm)
    1111
     
    1414 '("typed-lists.so" "list-functor.import.so" "set-functor.import.so"
    1515"_immutable-lists.import.so" "immutable-lists.import.so" "sets.import.so")
    16  '((version "2.1")))
     16 '((version "2.2")))
    1717
Note: See TracChangeset for help on using the changeset viewer.