diff --git a/base/loading.jl b/base/loading.jl index 8dff6838c27cc..cf3c367355ff0 100644 --- a/base/loading.jl +++ b/base/loading.jl @@ -2875,8 +2875,8 @@ function evalfile(path::AbstractString, args::Vector{String}=String[]) Expr(:toplevel, :(const ARGS = $args), :(eval(x) = $(Expr(:core, :eval))(__anon__, x)), - :(include(x::AbstractString) = $(Expr(:top, :include))(__anon__, x)), - :(include(mapexpr::Function, x::AbstractString) = $(Expr(:top, :include))(mapexpr, __anon__, x)), + :(include(x) = $(Expr(:top, :include))(__anon__, x)), + :(include(mapexpr::Function, x) = $(Expr(:top, :include))(mapexpr, __anon__, x)), :(include($path)))) end evalfile(path::AbstractString, args::Vector) = evalfile(path, String[args...]) diff --git a/src/jlfrontend.scm b/src/jlfrontend.scm index 463e39c41d00a..2c5f42eda5ce8 100644 --- a/src/jlfrontend.scm +++ b/src/jlfrontend.scm @@ -211,11 +211,11 @@ (block ,@loc (call (core eval) ,name ,x))) - (= (call include (:: ,x (top AbstractString))) + (= (call include ,x) (block ,@loc (call (core _call_latest) (top include) ,name ,x))) - (= (call include (:: ,mex (top Function)) (:: ,x (top AbstractString))) + (= (call include (:: ,mex (top Function)) ,x) (block ,@loc (call (core _call_latest) (top include) ,mex ,name ,x)))))