Initial ListDots test.
original commit: e40d1824b0b3717a1c2454ebc87257abca352a8a
This commit is contained in:
parent
2ecc5d35d4
commit
fd9b246931
6
collects/tests/typed-scheme/succeed/list-dots.rkt
Normal file
6
collects/tests/typed-scheme/succeed/list-dots.rkt
Normal file
|
@ -0,0 +1,6 @@
|
|||
#lang typed/racket
|
||||
|
||||
(: f (All (a ...) ((List a ...) -> (List a ... a))))
|
||||
(define (f x) x)
|
||||
|
||||
(ann (values (inst f String Number Boolean)) String)
|
Loading…
Reference in New Issue
Block a user