Print empty filters as -

original commit: b21f70408687afa5617230478146ece76d71d53b
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-24 14:04:01 -07:00
parent af4ff86f52
commit e345eb7448

View File

@ -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))]))