From 3b22083244182f22b29d47bce523d1b6da4c55a3 Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Tue, 26 Apr 2011 13:52:37 -0400 Subject: [PATCH] made ephemeron test correct original commit: c221c070763a9527840ddb2d5ebedf63b9af464d --- collects/tests/typed-scheme/succeed/ephemerons.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)