diff --git a/collects/tests/typed-scheme/succeed/ephemerons.rkt b/collects/tests/typed-scheme/succeed/ephemerons.rkt index 729ab557..0e6b80f4 100644 --- a/collects/tests/typed-scheme/succeed/ephemerons.rkt +++ b/collects/tests/typed-scheme/succeed/ephemerons.rkt @@ -11,4 +11,6 @@ (: get-number ((Ephemeronof Number) -> Number)) (define (get-number e) - (ephemeron-value e)) + (or (ephemeron-value e) 0)) + +(get-number eph-one)