`sort' now infers properly -- test passes.

Please merge to release.
This commit is contained in:
Sam Tobin-Hochstadt 2012-01-24 05:17:52 -05:00
parent 622a947bc4
commit f70c1b213f

View File

@ -1,5 +1,3 @@
#;
(exn-pred exn:fail:syntax? #rx".*Cannot infer.*Please add more type annotations.*")
#lang typed/racket #lang typed/racket
(define ss '("one" "two" "three")) ; (Listof String) (define ss '("one" "two" "three")) ; (Listof String)
(sort ss string<?) (sort ss string<?)