diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix history

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-01-17 10:12:08 +00:00
parent e22e3d74a0
commit 098608700c
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/history.pl
View File

@ -30,7 +30,7 @@
*/ */
:- module('$history', :- module('$history',
[ % read_history/6, [ %read_history/6,
'$clean_history'/0, '$clean_history'/0,
'$save_history'/1 '$save_history'/1
]). ]).
@ -148,7 +148,7 @@ save_history_line(Line) :-
[ Line, [partial(true)], [ Line, [partial(true)],
'.', [partial(true)] '.', [partial(true)]
]), ]),
catch(user:rl_add_history(CompleteLine), _, fail), !. catch(system:rl_add_history(CompleteLine), _, fail), !.
save_history_line(_). save_history_line(_).
save_event(Dont, Event) :- save_event(Dont, Event) :-

1
pl/qly.yap
View File

@ -135,6 +135,7 @@ save_program(File, _Goal) :-
'$x_yap_flag'(X, V) :- '$x_yap_flag'(X, V) :-
yap_flag(X, V), yap_flag(X, V),
X \= language, X \= language,
X \= readline,
X \= timezone, X \= timezone,
X \= user_input, X \= user_input,
X \= user_output, X \= user_output,