syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

more hash operations

This commit is contained in:
Sam Caldwell 2019-05-17 10:34:33 -04:00
parent 9dd11ef7db
commit 5fda25a42e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/typed/hash.rkt
View File

@ -5,9 +5,11 @@
hash
hash-set
hash-ref
(typed-out [[hash-ref/failure- : (∀ (K V) (→fn (Hash K V) K V V))]
hash-ref/failure])
hash-has-key?
hash-update
(typed-out [[hash-update/failure- : (∀ (K V) (→fn (Hash K V) K (→fn V V) (→fn V) (Hash K V)))]
(typed-out [[hash-update/failure- : (∀ (K V) (→fn (Hash K V) K (→fn V V) V (Hash K V)))]
hash-update/failure])
hash-remove
hash-map
@ -72,6 +74,9 @@
;; TODO - hash-union with #:combine
)
(define- (hash-ref/failure- h k err)
(#%app- hash-ref- h k err))
(define- (hash-update/failure- h k u err)
(#%app- hash-update- h k u err))