Changeset 29539 in project


Ignore:
Timestamp:
08/08/13 02:47:02 (6 years ago)
Author:
Ivan Raikov
Message:

typeclass: eliminated use of letrec in unit tests [thanks to Peter Bex]

Location:
release/4/typeclass/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/typeclass/trunk/tests/run.scm

    r25475 r29539  
    8989
    9090(define (list-Set eq)
    91   (letrec ((empty  '())
    92            (insert (lambda (x s)
    93                      (if ((set-member? this) x s)
    94                          s
    95                          (cons x s))))
    96            (fold   foldl)
    97            (this   (make-<Set> eq
    98                                (make-<Collection> empty
    99                                                   insert
    100                                                   fold))))
    101     this))
     91  (let ((this (make-parameter #f)))
     92    (let ((empty  '())
     93          (insert (lambda (x s)
     94                    (if ((set-member? (this)) x s)
     95                        s (cons x s))))
     96          (fold   foldl))
     97      (this (make-<Set> eq
     98                        (make-<Collection> empty
     99                                           insert
     100                                           fold)))
     101      (this))
     102    ))
    102103
    103104; instance Set Num [Num]
  • release/4/typeclass/trunk/typeclass.setup

    r25475 r29539  
    77 'typeclass
    88 `("typeclass.so" "typeclass.import.so")
    9  `((version 1.1)))
     9 `((version 1.2)))
Note: See TracChangeset for help on using the changeset viewer.