build-signed-interaction-graph: Use _.

2020-05-14 00:56:46 +02:00 · 2020-05-14 00:56:46 +02:00 · 6c707ddba7
parent 32b2e41634
commit 6c707ddba7
1 changed files with 2 additions and 2 deletions
--- a/networks.rkt
+++ b/networks.rkt
@ -316,8 +316,8 @@
 (define (build-signed-interaction-graph network doms)
  (weighted-graph/directed
   (for*/fold ([edges '()])
-              ([(x  x-val) (in-hash network)]
-               [(y  y-val) (in-hash network)])
+              ([(x _) (in-hash network)]
+               [(y _) (in-hash network)])
     (match (get-interaction-sign network doms x y)
       ['0 edges]
       [sign (cons (list sign x y) edges)]))))