From 1f9f25029036c3cc01fade6bd7d1af17f9d5b525 Mon Sep 17 00:00:00 2001 From: Sina Samavati Date: Thu, 15 May 2014 03:21:25 +0430 Subject: [PATCH] Make erlog_shell:reconsult_files/2 prepare file name when no extension is represented --- src/erlog_shell.erl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/erlog_shell.erl b/src/erlog_shell.erl index b9821c9..fc8b039 100644 --- a/src/erlog_shell.erl +++ b/src/erlog_shell.erl @@ -73,7 +73,11 @@ server_loop(P0) -> end. reconsult_files([F|Fs], Db0) -> - case erlog_file:reconsult(F, Db0) of + F1 = case filename:extension(F) of + [] -> [F, ".pl"]; + _ -> F + end, + case erlog_file:reconsult(F1, Db0) of {ok,Db1} -> reconsult_files(Fs, Db1); {erlog_error,Error} -> {erlog_error,Error}; {error,Error} -> {error,Error}