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

networks,tabulate-network: Fix the case of an identifier.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-06-02 23:37:28 +02:00
parent 7f58bf5623
commit 6247f28958
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
networks.rkt
View file

@ -781,7 +781,7 @@
(define (tabulate-network network domains #:headers [headers #t]) (define (tabulate-network network domains #:headers [headers #t])
;; I use hash-map with try-order? set to #t to ask the hash table to ;; I use hash-map with try-order? set to #t to ask the hash table to
;; sort the keys for me. ;; sort the keys for me.
(define-values (vars funcs) (for/lists (l1 L2) (define-values (vars funcs) (for/lists (l1 l2)
([pair (hash-map network cons #t)]) ([pair (hash-map network cons #t)])
(values (car pair) (cdr pair)))) (values (car pair) (cdr pair))))
(define tab (tabulate-state* funcs domains #:headers headers)) (define tab (tabulate-state* funcs domains #:headers headers))