typed-racket/typed-racket-test/succeed/values-object.rkt
2014-12-16 10:07:25 -05:00

8 lines
113 B
Racket

#lang typed/racket
(define v values)
;(define v identity)
(: f (Boolean -> #f))
(define (f x) (if (v x) #f x))