add in-hash-keys and in-hash-values

This commit is contained in:
Sam Caldwell 2020-10-21 11:05:46 -04:00
parent 659715cd0e
commit fe6435f056
1 changed files with 14 additions and 1 deletions

View File

@ -5,7 +5,9 @@
for/list
for/set
for/sum
for/first)
for/first
in-hash-values
in-hash-keys)
(require "core-types.rkt")
(require "sequence.rkt")
@ -223,3 +225,14 @@
( ν-ep (τ-ep ...))
( ν-s (τ-s ...))
( ν-f (τ-f ...))])
(define-typed-syntax (in-hash-values h)
[ h h- ( : (~Hash K V))]
--------------------
[ (#%app- in-hash-values- h-) ( : (Sequence V))])
(define-typed-syntax (in-hash-keys h)
[ h h- ( : (~Hash K V))]
--------------------
[ (#%app- in-hash-keys- h-) ( : (Sequence K))])