Как найти минимальное положительное число, которое при добавлении к 1,0 дает нечто большее?

При переводе некоторого Fortran на Scheme/Racket я столкнулся с функция:

; EPSILON(X)      The  least  positive  number  that added
;                 to 1 returns a number that is greater than 1

Как найти номер в схеме?