scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

network,compact-tbf: Use for/hash instead of hash-filter.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-11-01 23:38:08 +01:00
parent f7e44df117
commit 2a0cfb4dcc
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
networks.rkt
View file

@ -1526,7 +1526,9 @@
;;; are 0. ;;; are 0.
(define (compact-tbf tbf) (define (compact-tbf tbf)
(tbf/state (tbf/state
(hash-filter (tbf/state-w tbf) #:predicate (compose not zero?)) (for/hash ([(k v) (in-hash (tbf/state-w tbf))]
#:unless (zero? v))
(values k v))
(tbf/state-θ tbf))) (tbf/state-θ tbf)))
(module+ test (module+ test