9 lines
161 B
Racket
9 lines
161 B
Racket
#lang typed/racket
|
|
|
|
(ann
|
|
(let ([x : Flonum -5.0])
|
|
(if (< x (ann +nan.0 Positive-Flonum))
|
|
1.0
|
|
x))
|
|
Positive-Flonum) ; -5 is *not* positive
|