Print empty filters as -
original commit: b21f70408687afa5617230478146ece76d71d53b
This commit is contained in:
parent
af4ff86f52
commit
e345eb7448
|
@ -61,7 +61,7 @@
|
|||
(define (fp . args) (apply fprintf port args))
|
||||
(match c
|
||||
[(NoObject:) (fp "-")]
|
||||
[(Empty:) (fp "")]
|
||||
[(Empty:) (fp "-")]
|
||||
[(Path: pes i) (fp "~a" (append pes (list i)))]
|
||||
[else (fp "(Unknown Object: ~a)" (struct->vector c))]))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user