made ephemeron test correct
This commit is contained in:
parent
80fa8d3c97
commit
c221c07076
|
@ -11,4 +11,6 @@
|
||||||
|
|
||||||
(: get-number ((Ephemeronof Number) -> Number))
|
(: get-number ((Ephemeronof Number) -> Number))
|
||||||
(define (get-number e)
|
(define (get-number e)
|
||||||
(ephemeron-value e))
|
(or (ephemeron-value e) 0))
|
||||||
|
|
||||||
|
(get-number eph-one)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user