made ephemeron test correct

2011-04-26 13:52:37 -04:00 · 2011-04-26 13:52:37 -04:00 · c221c07076
commit c221c07076
parent 80fa8d3c97
1 changed files with 3 additions and 1 deletions
--- 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)