fix A[]=x for Array and BitArray

fix gen_cartesian_map in the case of ranges===()

Author: JeffBezanson

base/abstractarray.jl

@@ -317,6 +317,9 @@ end
 ## specifies what it wants to do before and after each loop.
 ## If genbodies creates an array it must of length N.
 function gen_cartesian_map(cache, genbodies, ranges, exargnames, exargs...)
+    if ranges === ()
+        ranges = (1,)
+    end
     N = length(ranges)
     if !haskey(cache,N)
         if isdefined(genbodies,:code)

base/array.jl

@@ -387,7 +387,7 @@ getindex{T<:Real}(A::Matrix, I::AbstractVector{T}, J::AbstractVector{Bool}) = A[
 getindex{T<:Real}(A::Matrix, I::AbstractVector{Bool}, J::AbstractVector{T}) = A[find(I),J]
 
 ## Indexing: setindex! ##
-setindex!{T}(A::Array{T,0}, x) = arrayset(A, convert(T,x), 1)
+setindex!{T}(A::Array{T}, x) = arrayset(A, convert(T,x), 1)
 
 setindex!(A::Array{Any}, x::ANY, i::Real) = arrayset(A, x, to_index(i))
 

base/bitarray.jl

@@ -302,6 +302,8 @@ end
 
 getindex(B::BitArray, i::Real) = getindex(B, to_index(i))
 
+getindex(B::BitArray) = getindex(B, 1)
+
 # 0d bitarray
 getindex(B::BitArray{0}) = getindex_unchecked(B.chunks, 1)
 
@@ -476,6 +478,8 @@ function setindex!(B::BitArray, x::Bool, i::Int)
     return B
 end
 
+setindex!(B::BitArray, x) = setindex!(B, x, 1)
+
 setindex!(B::BitArray, x, i::Real) = setindex!(B, convert(Bool,x), to_index(i))
 
 setindex!(B::BitArray, x, i0::Real, i1::Real) =