Minor enhancements

Author: magistere

src/check_derivative.jl

@@ -1,19 +1,19 @@
 function check_derivative(f::Function, g::Function, x::Number)
 	auto_g = derivative(f)
-	return max(abs(g(x) - auto_g(x)))
+	return maximum(abs(g(x) - auto_g(x)))
 end
 
 function check_gradient{T <: Number}(f::Function, g::Function, x::Vector{T})
 	auto_g = gradient(f)
-	return max(abs(g(x) - auto_g(x)))
+	return maximum(abs(g(x) - auto_g(x)))
 end
 
 function check_second_derivative(f::Function, h::Function, x::Number)
 	auto_h = second_derivative(f)
-	return max(abs(h(x) - auto_h(x)))
+	return maximum(abs(h(x) - auto_h(x)))
 end
 
 function check_hessian{T <: Number}(f::Function, h::Function, x::Vector{T})
 	auto_h = hessian(f)
-	return max(abs(h(x) - auto_h(x)))
+	return maximum(abs(h(x) - auto_h(x)))
 end

src/deparse.jl

@@ -11,7 +11,7 @@ function deparse(ex::Expr)
     op = ex.args[1]
     args = ex.args[2:end]
     if !(op in infix_ops)
-        return string(op, "(", join(map(x -> deparse(x), args), ", "), ")")
+        return string(op, "(", join(map(deparse, args), ", "), ")")
     end
     if length(args) == 1
         return string(op, deparse(args[1]))