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

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

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])
;; I use hash-map with try-order? set to #t to ask the hash table to
;; 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)])
(values (car pair) (cdr pair))))
(define tab (tabulate-state* funcs domains #:headers headers))