Use permutedims in hcat (#84)

Author: dlfivefifty

src/ApproxFunBase.jl

@@ -26,7 +26,7 @@ import Base: values, convert, getindex, setindex!, *, +, -, ==, <, <=, >, |, !,
                 getproperty, findfirst, unsafe_getindex, fld, cld, div, real, imag,
                 @_inline_meta, eachindex, firstindex, lastindex, keys, isreal, OneTo,
                 Array, Vector, Matrix, view, ones, @propagate_inbounds, print_array,
-                split, iszero
+                split, iszero, permutedims
 
 import Base.Broadcast: BroadcastStyle, Broadcasted, AbstractArrayStyle, broadcastable,
                         DefaultArrayStyle, broadcasted

src/Multivariate/VectorFun.jl

@@ -39,7 +39,7 @@ end
 
 function hcat(v::ScalarFunTypes...)
     ff = vcat(v...)  # A vectorized version
-    transpose(ff)
+    permutedims(ff)
 end
 
 hvcat(rows::Tuple{Vararg{Int}},v::FunTypes...) = Fun(hvnocat(rows,v...))
@@ -79,7 +79,7 @@ Fun(f::ArrayFun, d::Space) = Fun(f,Space(fill(d,size(space(f)))))
 
 Fun(M::AbstractMatrix{<:Number},sp::Space) = Fun([Fun(M[:,k],sp) for k=1:size(M,2)])
 
-for OP in (:(transpose),)
+for OP in (:transpose,:permutedims)
     @eval begin
         $OP(f::ArrayFun) = Fun($OP(Array(f)))
         $OP(sp::Space{D,R}) where {D,R<:AbstractArray} = Space($OP(Array(sp)))