Change examples to use prettier types.

original commit: 7a4bd387ccbd6a95b16bd6c6c810d9ddf8a537ad
This commit is contained in:
Vincent St-Amour 2011-06-14 17:14:39 -04:00
parent 5f548fa452
commit a54a51ba07

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 ...+)]