8 lines
177 B
Racket
8 lines
177 B
Racket
#lang typed/racket
|
|
|
|
;; Test for github issue #336
|
|
|
|
(: foo (∀ (A ... B ...) (→ (List (→ A ... B) ...)
|
|
Any)))
|
|
(define (foo f)
|
|
(apply conjoin f)) |