From 70c25d37b6e3a6a446cb7f4c99848586ab12d0e4 Mon Sep 17 00:00:00 2001
From: vscosta <vsc@dcc.fc.up.pt>
Date: Sat, 2 Sep 2017 23:48:49 +0100
Subject: [PATCH] tell where we built from

---
 pl/boot.yap | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pl/boot.yap b/pl/boot.yap
index 1178bce43..ac645501f 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -546,7 +546,10 @@ initialize_prolog :-
 	current_prolog_flag(compiled_at,AT),
 	current_prolog_flag(version_data, yap(Mj, Mi,  Patch, _) ),
 	sub_atom( VersionGit, 0, 8, _, VERSIONGIT ),
+	current_prolog_flag(version_data, yap(Mj, Mi,  Patch, _) ),
+	current_prolog_flag(resource_database, Saved ),
 	format(user_error, '% YAP ~d.~d.~d-~a (compiled  ~a)~n', [Mj,Mi, Patch, VERSIONGIT,  AT]),
+	format(user_error, '% database loaded from ~a~n', [Saved]),
 	fail.
 '$version'.