Changeset 39566 in project

Timestamp:

01/31/21 21:11:10 (5 weeks ago)

Author:

Kon Lovett

Message:

list elm trim is option, correct type for unique

Location:

release/5/list-utils/trunk

Files:

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

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

@@ -38 +38 @@
 (define not-string-null? (o not string-null?))
 
-; "a, b", not "a,b"
-;string-nulls & nulls are removed
+;the input list is flattened, so nulls are removed
+;comma : ", " so "a, b"
+;allow-empty? : do not remove string-nulls
 ;
 (define (list->comma-string ls #!optional allow-empty? (comma ", "))
@@ -46 +47 @@
     (ls (map ->string (list-flatten ls)))
     (ls (if allow-empty? ls (filter not-string-null? ls))) )
-    (if (null? ls)
-      ""
+    (if (null? ls) ""
       (string-concatenate (intersperse ls comma)) ) ) )
 
-(define (comma-string->list str)
-  (map! string-trim-whitespace-both (string-split str ",")) )
+(define (comma-string->list str #!optional (proc string-trim-whitespace-both))
+  (map! proc (string-split str ",")) )
 
 (define (list-comma-join . rest)

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

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

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

@@ -56 +56 @@
 (define-type alist (or null (list-of pair)))
 
-(: list-unique/duplicates (list #!optional procedure -> list list))
-(: list-unique (list #!optional procedure -> list))
+(: 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)))
 (: sort-alist (alist #!optional procedure -> alist))
 (: sort-alist! (alist #!optional procedure -> void))