From e345eb7448f7c9d95496fb6d0ede8a6b51bf6ef5 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 24 May 2010 14:04:01 -0700 Subject: [PATCH] Print empty filters as - original commit: b21f70408687afa5617230478146ece76d71d53b --- collects/typed-scheme/types/printer.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/types/printer.rkt b/collects/typed-scheme/types/printer.rkt index 61d92dd9..122e6f0c 100644 --- a/collects/typed-scheme/types/printer.rkt +++ b/collects/typed-scheme/types/printer.rkt @@ -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))]))