Changeset 39568 in project

Timestamp:

01/31/21 21:21:33 (2 months ago)

Author:

Kon Lovett

Message:

fix fixed unique type

Location:

release/5/list-utils/trunk

Files:

• list-utils.egg (modified) (1 diff)
• list-utils.scm (modified) (1 diff)

release/5/list-utils/trunk/list-utils.egg

@@ -3 +3 @@
 
 ((synopsis "list-utils")
- (version "2.3.2")
+ (version "2.3.3")
  (category data)
  (author "Kon Lovett")

release/5/list-utils/trunk/list-utils.scm

@@ -56 +56 @@
 (define-type alist (or null (list-of pair)))
 
+#; ;too strong
 (: list-unique/duplicates (forall (e (s (list-of e))) (s #!optional (e e -> *) -> s s)))
-(: list-unique (forall (e (s (list-of e))) (s #!optional (e e -> *) -> s)))
+;(: list-unique (forall (e (s (list-of e))) (s #!optional (e e -> *) -> s)))
+(: list-unique/duplicates (list #!optional (* * -> *) -> list list))
+(: list-unique (list #!optional (* * -> *) -> list))
 (: sort-alist (alist #!optional procedure -> alist))
 (: sort-alist! (alist #!optional procedure -> void))