From 9b40abb674999e19b83968227ce52aacd1d51fed Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 4 May 2010 17:55:01 -0400 Subject: [PATCH] Don't wrap booleans, print typed values original commit: 08ca97bf9e8650f204228ebee4252805db0fcb0f --- collects/typed-scheme/utils/any-wrap.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/utils/any-wrap.rkt b/collects/typed-scheme/utils/any-wrap.rkt index 0e7c3116..b1c63e0b 100644 --- a/collects/typed-scheme/utils/any-wrap.rkt +++ b/collects/typed-scheme/utils/any-wrap.rkt @@ -5,14 +5,16 @@ (define-struct any-wrap (val) #:property prop:custom-write (lambda (v p write?) - (fprintf p "#"))) + (fprintf p "#" (any-wrap-val v)))) (define (traverse wrap?) (define (t v) (match v [(? (lambda (e) (and (any-wrap? e) (not wrap?)))) (any-wrap-val v)] [(? (lambda (e) - (or (number? e) (string? e) (char? e) (symbol? e) (keyword? e) (bytes? e) (void? e)))) v] + (or (number? e) (string? e) (char? e) (symbol? e) + (keyword? e) (bytes? e) (boolean? e) (void? e)))) + v] [(cons x y) (cons (t x) (t y))] [(and (? immutable?) (? vector?)) (vector-map t v)] [(and (? immutable?) (box v)) (box (t v))]