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

fix prompt stuff.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-07-27 16:49:43 +01:00
parent a06586ad22
commit b79a885480
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/boot.yap
View File

@ -202,14 +202,16 @@ true :- true.
'$enter_top_level' :- '$enter_top_level' :-
get_value('$top_level_goal',GA), GA \= [], !, get_value('$top_level_goal',GA), GA \= [], !,
set_value('$top_level_goal',[]), set_value('$top_level_goal',[]),
format('hello1 ~w~n',[GA]),
'$run_atom_goal'(GA), '$run_atom_goal'(GA),
set_value('$live','$false'). set_value('$live','$false').
'$enter_top_level' :- '$enter_top_level' :-
'$disable_docreep', '$disable_docreep',
'$run_toplevel_hooks', '$run_toplevel_hooks',
prompt1(' ?- '),
'$read_toplevel'(Command,Varnames), '$read_toplevel'(Command,Varnames),
nb_setval('$spy_gn',1), nb_setval('$spy_gn',1),
% stop at spy-points if debugging is on. % stop at spy-points if debugging is on.
nb_setval('$debug_run',off), nb_setval('$debug_run',off),
nb_setval('$debug_jump',off), nb_setval('$debug_jump',off),
'$command'(Command,Varnames,_Pos,top), '$command'(Command,Varnames,_Pos,top),