diff --git a/typed-racket-lib/typed-racket/base-env/base-env-numeric.rkt b/typed-racket-lib/typed-racket/base-env/base-env-numeric.rkt index 848c5e8e..ed528968 100644 --- a/typed-racket-lib/typed-racket/base-env/base-env-numeric.rkt +++ b/typed-racket-lib/typed-racket/base-env/base-env-numeric.rkt @@ -193,7 +193,7 @@ (define fxabs-type (lambda () (fx-from-cases - (map unop (list -Zero -One -PosByte -Byte -PosIndex -Index)) + (-> -Nat -NonNegFixnum : -true-filter : (-arg-path 0)) ((Un -PosInt -NegInt) . -> . -PosFixnum) (-Int . -> . -NonNegFixnum)))) (define fx=-type