networks, pretty-print-state-graph-with: Use pretty-print-set for edges.
This commit is contained in:
parent
3f24a5be8b
commit
a3f5d4d2ba
1 changed files with 2 additions and 2 deletions
|
@ -344,9 +344,9 @@
|
|||
(string-join (hash-map s (λ (key val) (format "~a:~a" key (any->boolean val))) #t)))
|
||||
|
||||
;;; Given a state graph and a pretty-printer for states build a new
|
||||
;;; state graph with pretty-printed vertices.
|
||||
;;; state graph with pretty-printed vertices and edges.
|
||||
(define (pretty-print-state-graph-with gr pprinter)
|
||||
(update-vertices/unweighted gr pprinter))
|
||||
(update-graph gr #:v-func pprinter #:e-func pretty-print-set))
|
||||
|
||||
;;; Pretty prints a state graph with pretty-print-state.
|
||||
(define (pretty-print-state-graph gr)
|
||||
|
|
Loading…
Reference in a new issue