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

indenting

This commit is contained in:
Vitor Santos Costa 2016-04-28 14:58:56 +01:00
parent 235179ff47
commit 61ba15fa3a
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
pl/boot.yap
View File

@ -241,7 +241,7 @@ private(_).
:- use_system_module( '$_preddecls', ['$dynamic'/2]). :- use_system_module( '$_preddecls', ['$dynamic'/2]).
:- use_system_module( '$_preds', ['$assert_static'/5, :- use_system_module( '$_preds', ['$assert_static'/5,
'$assertz_dynamic'/4, '$assertz_dynamic'/4,
'$init_preds'/0, '$init_preds'/0,
'$unknown_error'/1, '$unknown_error'/1,
'$unknown_warning'/1]). '$unknown_warning'/1]).
@ -1488,18 +1488,18 @@ bootstrap(F) :-
'$precompile_term'(Term, ExpandedUser, Expanded) :- '$precompile_term'(Term, ExpandedUser, Expanded) :-
%format('[ ~w~n',[Term]), %format('[ ~w~n',[Term]),
'$expand_clause'(Term, ExpandedUser, ExpandedI), '$expand_clause'(Term, ExpandedUser, ExpandedI),
!, !,
%format(' -> ~w~n',[Expanded0]), %format(' -> ~w~n',[Expanded0]),
( (
current_prolog_flag(strict_iso, true) /* strict_iso on */ current_prolog_flag(strict_iso, true) /* strict_iso on */
-> ->
Expanded = ExpandedI, Expanded = ExpandedI,
'$check_iso_strict_clause'(ExpandedUser) '$check_iso_strict_clause'(ExpandedUser)
; ;
'$expand_array_accesses_in_term'(ExpandedI,Expanded) '$expand_array_accesses_in_term'(ExpandedI,Expanded)
-> true -> true
; ;
Expanded = ExpandedI Expanded = ExpandedI
). ).
'$precompile_term'(Term, Term, Term). '$precompile_term'(Term, Term, Term).
@ -1523,10 +1523,10 @@ whenever the compilation of arithmetic expressions is in progress.
*/ */
expand_term(Term,Expanded) :- expand_term(Term,Expanded) :-
( (
'$do_term_expansion'(Term,Expanded) '$do_term_expansion'(Term,Expanded)
-> ->
true true
; ;
'$expand_term_grammar'(Term,Expanded) '$expand_term_grammar'(Term,Expanded)
). ).