From a3efd6fc1201be0ac7847035d78e8b542bc2f7fe Mon Sep 17 00:00:00 2001
From: Mike Nolta <mike@nolta.net>
Date: Sun, 6 Jan 2013 02:16:54 -0500
Subject: [PATCH] file_path -> joinpath

---
 src/Tk.jl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Tk.jl b/src/Tk.jl
index 50f3015..f8f2e48 100644
--- a/src/Tk.jl
+++ b/src/Tk.jl
@@ -37,7 +37,7 @@ tk_display(w) = pointer_to_array(convert(Ptr{Ptr{Void}},w), (1,), false)[1]
 
 function init()
     ccall((:Tcl_FindExecutable,libtcl), Void, (Ptr{Uint8},),
-          file_path(JULIA_HOME, "julia"))
+          joinpath(JULIA_HOME, "julia"))
     tcl_interp = ccall((:Tcl_CreateInterp,libtcl), Ptr{Void}, ())
     ccall((:Tcl_Init,libtcl), Int32, (Ptr{Void},), tcl_interp)
     ccall((:Tk_Init,libtk), Int32, (Ptr{Void},), tcl_interp)