From e5e71ee618234ab3eaf914eb51c3deb31e641c9e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Tue, 5 Nov 2013 17:57:17 +0000
Subject: [PATCH] fix source

---
 pl/flags.yap | 13 ++++++++++---
 pl/init.yap  |  7 ++-----
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/pl/flags.yap b/pl/flags.yap
index 6d3554f06..36fdb8fa5 100755
--- a/pl/flags.yap
+++ b/pl/flags.yap
@@ -381,6 +381,15 @@ yap_flag(chr_toplevel_show_store,X) :-
 yap_flag(chr_toplevel_show_store,X) :-
 	'$do_error'(domain_error(flag_value,chr_toplevel_show_store+X),yap_flag(chr_toplevel_show_store,X)).
 
+yap_flag(source,X) :-
+	var(X), !,
+	source_mode( X, X ).
+yap_flag(source,X) :-
+	(X == off -> true ; X == on), !,
+	source_mode( _, X ).
+yap_flag(chr_toplevel_show_store,X) :-
+	'$do_error'(domain_error(flag_value,source+X),yap_flag(source,X)).
+
 yap_flag(open_expands_filename,Expand) :-
 	var(Expand), !,
 	'$default_expand'(Expand).
@@ -630,19 +639,17 @@ yap_flag(max_threads,X) :-
 '$yap_system_flag'(n_of_integer_keys_in_db).
 '$yap_system_flag'(open_expands_filename).
 '$yap_system_flag'(open_shared_object).
-% '$yap_system_flag'(optimise).
 '$yap_system_flag'(profiling).
 '$yap_system_flag'(prompt_alternatives_on).
-% '$yap_system_flag'(readline).
 '$yap_system_flag'(redefine_warnings).
 '$yap_system_flag'(shared_object_search_path).
 '$yap_system_flag'(shared_object_extension).
 '$yap_system_flag'(single_var_warnings).
+'$yap_system_flag'(source).
 '$yap_system_flag'(stack_dump_on_error).
 '$yap_system_flag'(strict_iso).
 '$yap_system_flag'(syntax_errors).
 '$yap_system_flag'(system_options).
-% '$yap_system_flag'(timezone).
 '$yap_system_flag'(to_chars_mode).
 '$yap_system_flag'(toplevel_hook).
 '$yap_system_flag'(toplevel_print_options).
diff --git a/pl/init.yap b/pl/init.yap
index a8b30bcfe..539cce4cb 100755
--- a/pl/init.yap
+++ b/pl/init.yap
@@ -114,13 +114,10 @@ otherwise.
 
 :- multifile prolog:debug_action_hook/1.
 
-:- source.
-
-:- no_source.
-
-
 :-	 ['protect.yap'].
 
+:- source.
+
 version(yap,[6,3]).
 
 :- op(1150,fx,(mode)).