Add test for pr14567.

Closes PR 14567.
It seems that this has been already fixed.

original commit: 4aef86ce4fc74116475945c5a6ffb9348e1c65fe
This commit is contained in:
Eric Dobson 2014-07-06 17:19:59 -07:00
parent 081078b1bf
commit cb71403e77

View File

@ -0,0 +1,5 @@
#lang typed/racket
(provide f)
(define-type C (Pair Number (Pair Number C)))
(: f (C -> Boolean))
(define (f x) (list? x))