Change examples to use prettier types.

This commit is contained in:
Vincent St-Amour 2011-06-14 17:14:39 -04:00
parent d43c8fc406
commit 7a4bd387cc

View File

@ -21,12 +21,12 @@ is provided, simply checks that the value is not
}
@examples[#:eval the-top-eval
(define: x : (U #f Number) (string->number "7"))
(define: x : (U #f String) (number->string 7))
x
(assert x)
(define: y : (U String Number) 0)
(define: y : (U String Symbol) "hello")
y
(assert y number?)
(assert y string?)
(assert y boolean?)]
@defform*/subs[[(with-asserts ([id maybe-pred] ...) body ...+)]