Print empty gestalt differently to reduce ambiguity.
This commit is contained in:
parent
052c90ef78
commit
cbf057204c
|
@ -256,13 +256,15 @@
|
||||||
(gestalt-matcher-transform g (lambda (m) (matcher-relabel m (lambda (v) pidset)))))
|
(gestalt-matcher-transform g (lambda (m) (matcher-relabel m (lambda (v) pidset)))))
|
||||||
|
|
||||||
(define (pretty-print-gestalt g [port (current-output-port)])
|
(define (pretty-print-gestalt g [port (current-output-port)])
|
||||||
|
(if (gestalt-empty? g)
|
||||||
|
(fprintf port "EMPTY GESTALT\n")
|
||||||
(for [(metalevel (in-naturals)) (ls (in-list (gestalt-metalevels g)))]
|
(for [(metalevel (in-naturals)) (ls (in-list (gestalt-metalevels g)))]
|
||||||
(for [(level (in-naturals)) (p (in-list ls))]
|
(for [(level (in-naturals)) (p (in-list ls))]
|
||||||
(match-define (cons subs advs) p)
|
(match-define (cons subs advs) p)
|
||||||
(when (or subs advs)
|
(when (or subs advs)
|
||||||
(fprintf port "GESTALT metalevel ~v level ~v:\n" metalevel level)
|
(fprintf port "GESTALT metalevel ~v level ~v:\n" metalevel level)
|
||||||
(when subs (fprintf port " - subs:") (pretty-print-matcher subs port #:indent 9))
|
(when subs (fprintf port " - subs:") (pretty-print-matcher subs port #:indent 9))
|
||||||
(when advs (fprintf port " - advs:") (pretty-print-matcher advs port #:indent 9))))))
|
(when advs (fprintf port " - advs:") (pretty-print-matcher advs port #:indent 9)))))))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue