made ephemeron test correct

original commit: c221c070763a9527840ddb2d5ebedf63b9af464d
2011-04-26 13:52:37 -04:00 · 2011-04-26 13:52:37 -04:00 · 3b22083244
commit 3b22083244
parent b22c8c9c24
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)