Changeset 32976 in project

Timestamp:

12/12/15 11:46:19 (4 years ago)

Author:

juergen

Message:

typed-lists 2.3 sets renamed list-sets

Location:

release/4/typed-lists

Files:

• tags/2.3 (copied) (copied from release/4/typed-lists/trunk)
• tags/2.3/list-sets.patch (moved) (moved from release/4/typed-lists/trunk/sets.patch)
• tags/2.3/sets.patch (deleted)
• tags/2.3/tests/run.scm (modified) (1 diff)
• tags/2.3/typed-lists.scm (modified) (3 diffs)
• tags/2.3/typed-lists.setup (modified) (1 diff)
• trunk/list-sets.patch (copied) (copied from release/4/typed-lists/trunk/sets.patch)
• trunk/tests/run.scm (modified) (1 diff)
• trunk/typed-lists.scm (modified) (3 diffs)
• trunk/typed-lists.setup (modified) (1 diff)

release/4/typed-lists/tags/2.3/tests/run.scm

@@ -130 +130 @@
 (define-test (sets?)
   (check
-    (import sets immutable-lists)
+    (import list-sets immutable-lists)
     (set=
       (ilist->set (ilist 1 2 1 3 2 3))

release/4/typed-lists/tags/2.3/typed-lists.scm

@@ -49 +49 @@
 
 (define-interface SETS
-   (sets set? set ilist->set set->ilist set-in?  set-cardinality
+   (list-sets set? set ilist->set set->ilist set-in?  set-cardinality
     set-filter set-null? set-difference set-add set-remove
     set= set>= set<= set-union set-intersection))
@@ -822 +822 @@
 
 ;; documentation procedure
-(define sets
+(define list-sets
   (let (
     (signatures '(
@@ -861 +861 @@
 
 ;;; explicit functor arguments
-(module sets = (set-functor _immutable-lists immutable-lists))
-
+(module list-sets = (set-functor _immutable-lists immutable-lists))
+

release/4/typed-lists/tags/2.3/typed-lists.setup

@@ -7 +7 @@
 ;(process-run "patch immutable-lists.import.scm immutable-lists.patch")
 (compile -O3 -d0 -s immutable-lists.import.scm)
-;(process-run "patch sets.import.scm sets.patch")
-(compile -O3 -d0 -s sets.import.scm)
+;(process-run "patch list-sets.import.scm sets.patch")
+(compile -O3 -d0 -s list-sets.import.scm)
 
 (install-extension
  'typed-lists
  '("typed-lists.so" "list-functor.import.so" "set-functor.import.so"
-"_immutable-lists.import.so" "immutable-lists.import.so" "sets.import.so")
- '((version "2.2")))
+"_immutable-lists.import.so" "immutable-lists.import.so" "list-sets.import.so")
+ '((version "2.3")))
 

release/4/typed-lists/trunk/tests/run.scm

@@ -130 +130 @@
 (define-test (sets?)
   (check
-    (import sets immutable-lists)
+    (import list-sets immutable-lists)
     (set=
       (ilist->set (ilist 1 2 1 3 2 3))

release/4/typed-lists/trunk/typed-lists.scm

@@ -49 +49 @@
 
 (define-interface SETS
-   (sets set? set ilist->set set->ilist set-in?  set-cardinality
+   (list-sets set? set ilist->set set->ilist set-in?  set-cardinality
     set-filter set-null? set-difference set-add set-remove
     set= set>= set<= set-union set-intersection))
@@ -822 +822 @@
 
 ;; documentation procedure
-(define sets
+(define list-sets
   (let (
     (signatures '(
@@ -861 +861 @@
 
 ;;; explicit functor arguments
-(module sets = (set-functor _immutable-lists immutable-lists))
-
+(module list-sets = (set-functor _immutable-lists immutable-lists))
+

release/4/typed-lists/trunk/typed-lists.setup

@@ -7 +7 @@
 ;(process-run "patch immutable-lists.import.scm immutable-lists.patch")
 (compile -O3 -d0 -s immutable-lists.import.scm)
-;(process-run "patch sets.import.scm sets.patch")
-(compile -O3 -d0 -s sets.import.scm)
+;(process-run "patch list-sets.import.scm sets.patch")
+(compile -O3 -d0 -s list-sets.import.scm)
 
 (install-extension
  'typed-lists
  '("typed-lists.so" "list-functor.import.so" "set-functor.import.so"
-"_immutable-lists.import.so" "immutable-lists.import.so" "sets.import.so")
- '((version "2.2")))
+"_immutable-lists.import.so" "immutable-lists.import.so" "list-sets.import.so")
+ '((version "2.3")))