diff --git a/src/core/explain.rkt b/src/core/explain.rkt index aca0a49dd..9c293b1c6 100644 --- a/src/core/explain.rkt +++ b/src/core/explain.rkt @@ -183,7 +183,8 @@ ; nan rescue: ; R(+-inf) + R(-+inf) = nan, but should actually ; be inf - [(and (overflow? xlog) (overflow? ylog) (not (same-sign?* xfl yfl))) (mark-erroneous! subexpr 'nan-rescue)] + [(and (overflow? xlog) (overflow? ylog) (not (same-sign?* xfl yfl))) + (mark-erroneous! subexpr 'nan-rescue)] ; inf rescue: ; R(inf) + y = non inf value (inf rescue) diff --git a/src/core/logspace.rkt b/src/core/logspace.rkt index 94568aa15..68e7afdba 100644 --- a/src/core/logspace.rkt +++ b/src/core/logspace.rkt @@ -4,7 +4,7 @@ math/flonum racket/struct "../syntax/syntax.rkt" - "../syntax/types.rkt") + "../syntax/types.rkt") (provide (all-defined-out)) @@ -153,8 +153,6 @@ ; (match-define (logfl a sa ea) A) ; (logfl (ceil a) sa (fllog2 (abs (ceil a))))) - - (define (logop? symbol) (match symbol ['log+ #true]