@@ -9,19 +9,14 @@ import Base: ==, <, <=, -, +, *, /, ~, isapprox,
99 isnan, isinf, isfinite,
1010 zero, one, typemin, typemax, realmin, realmax, eps, sizeof, reinterpret,
1111 float, trunc, round, floor, ceil, bswap,
12- div, fld, rem, mod, mod1, rem1, fld1, min, max, minmax,
12+ div, fld, rem, mod, mod1, fld1, min, max, minmax,
1313 start, next, done, r_promote, reducedim_init, rand
14-
15- if VERSION <= v " 0.5.0-dev+755"
16- macro pure (ex)
17- nothing
18- end
19- else
20- using Base: @pure
14+ if isdefined (Base, :rem1 )
15+ import Base: rem1
2116end
17+ using Base: @pure
2218
2319using Compat
24- import Compat. String
2520
2621# T => BaseType
2722# f => Number of Bytes reserved for fractional part
@@ -141,6 +136,9 @@ for f in (:div, :fld, :fld1)
141136 end
142137end
143138for f in (:rem , :mod , :mod1 , :rem1 , :min , :max )
139+ if f === :rem1 && ! isdefined (Base, :rem1 )
140+ continue
141+ end
144142 @eval begin
145143 $ f {T<:FixedPoint} (x:: T , y:: T ) = T ($ f (reinterpret (x),reinterpret (y)),0 )
146144 end
0 commit comments