From 29d8e152d916083bf8a8095903ff1e8110ba8fe7 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Mon, 2 Mar 2020 18:17:05 +0100 Subject: [PATCH] utils: ht-values:list->set -> ht-values/list->set --- utils-tests.rkt | 2 +- utils.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/utils-tests.rkt b/utils-tests.rkt index bb6eafe..945c74e 100644 --- a/utils-tests.rkt +++ b/utils-tests.rkt @@ -118,5 +118,5 @@ (check-equal? e1 '((1 2) (1 3))) (check-equal? l1 '((a) (b))) (check-equal? e2 '((1 2))) (check-equal? l2 '((b a))) (check-equal? e3 '(a b)) (check-equal? l3 (list (set 1) (set 2)))) - (check-equal? (ht-values:list->set #hash((a . (1 1)))) + (check-equal? (ht-values/list->set #hash((a . (1 1)))) (hash 'a (set 1)))) diff --git a/utils.rkt b/utils.rkt index af0dc9d..490cad7 100644 --- a/utils.rkt +++ b/utils.rkt @@ -28,7 +28,7 @@ [collect-by-key (-> (listof any/c) (listof any/c) (values (listof any/c) (listof (listof any/c))))] [collect-by-key/sets (-> (listof any/c) (listof any/c) (values (listof any/c) (listof (set/c any/c))))] - [ht-values:list->set (-> (hash/c any/c (listof any/c)) (hash/c any/c (set/c any/c)))]) + [ht-values/list->set (-> (hash/c any/c (listof any/c)) (hash/c any/c (set/c any/c)))]) ;; Contracts (contract-out [variable-mapping? contract?] [string-variable-mapping? contract?] @@ -287,6 +287,6 @@ (values es (map list->set ls)))) ;;; Converts the values of a hash table from lists to sets. -(define (ht-values:list->set ht) +(define (ht-values/list->set ht) (for/hash ([(k v) (in-hash ht)]) (values k (list->set v))))