diff --git a/scribblings/utils.scrbl b/scribblings/utils.scrbl index 4e36c54..615c200 100644 --- a/scribblings/utils.scrbl +++ b/scribblings/utils.scrbl @@ -359,8 +359,8 @@ Converts the values of a hash table from lists to sets. Returns the key-value pairs of a given hash table in the order in which the hash table orders them for @racket[hash-map]. -@bold{TODO:} Remove after Racket 8.4, in which @racket[hash->list] gets a new -optional argument @racket[try-order?]. +@bold{TODO:} Remove after Typed Racket has caught up with Racket 8.4, in which +@racket[hash->list] gets a new optional argument @racket[try-order?]. @examples[#:eval utils-evaluator (hash->list/ordered #hash((b . 1) (a . 1))) diff --git a/utils.rkt b/utils.rkt index 74e5610..73ba3ce 100644 --- a/utils.rkt +++ b/utils.rkt @@ -403,7 +403,7 @@ (check-equal? (ht-values/list->set #hash((a . (1 1)))) (hash 'a (set 1))))) -;; TODO: Remove after Racket 8.4. +;; TODO: Remove after Typed Racket has caught up with Racket 8.4. (: hash->list/ordered (All (a b) (-> (HashTable a b) (Listof (Pairof a b))))) (define (hash->list/ordered ht) ((inst hash-map a b (Pairof a b)) ht cons #t))