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

disable creep when top-level starts: this prevents creeping after a top-level.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-11-17 00:32:38 +00:00
parent b56894e0d5
commit 84022de89d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/boot.yap
View File

@ -163,6 +163,7 @@ true :- true.
'$run_atom_goal'(GA), '$run_atom_goal'(GA),
set_value('$live','$false'). set_value('$live','$false').
'$enter_top_level' :- '$enter_top_level' :-
'$disable_docreep',
prompt(_,' ?- '), prompt(_,' ?- '),
prompt(' | '), prompt(' | '),
'$run_toplevel_hooks', '$run_toplevel_hooks',
@ -485,6 +486,7 @@ true :- true.
'$another', '$another',
!, fail !, fail
; ;
'$disable_do_creep',
'$enter_system_mode', '$enter_system_mode',
'$out_neg_answer' '$out_neg_answer'
). ).