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

paths are hard

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-03-16 18:59:54 +00:00
parent 6462a09e59
commit a6cb6f6a25
3 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/arith.yap
View File

@ -167,6 +167,9 @@ do_not_compile_expressions :- set_value('$c_arith',[]).
var(V), !. var(V), !.
'$expand_expr'([T], E, V) :- !, '$expand_expr'([T], E, V) :- !,
'$expand_expr'(T, E, V). '$expand_expr'(T, E, V).
'$expand_expr'(String, _E, V) :-
string( String ), !,
string_codes(String, [V]).
'$expand_expr'(A, true, A) :- '$expand_expr'(A, true, A) :-
atomic(A), !. atomic(A), !.
'$expand_expr'(T, E, V) :- '$expand_expr'(T, E, V) :-

10
pl/boot.yap
View File

@ -28,11 +28,6 @@ true :- true.
'$init_system'. '$init_system'.
'$do_live' :- '$do_live' :-
'$swi_current_prolog_flag'(file_name_variables, OldF),
'$swi_set_prolog_flag'(file_name_variables, true),
'$init_consult',
'$swi_set_prolog_flag'(file_name_variables, OldF),
'$init_win_graphics',
repeat, repeat,
'$current_module'(Module), '$current_module'(Module),
( Module==user -> ( Module==user ->
@ -72,6 +67,11 @@ true :- true.
% ; % ;
% true % true
% ), % ),
'$swi_current_prolog_flag'(file_name_variables, OldF),
'$swi_set_prolog_flag'(file_name_variables, true),
'$init_consult',
'$swi_set_prolog_flag'(file_name_variables, OldF),
'$init_win_graphics',
'$init_globals', '$init_globals',
'$swi_set_prolog_flag'(fileerrors, true), '$swi_set_prolog_flag'(fileerrors, true),
set_value('$gc',on), set_value('$gc',on),

6
pl/consult.yap
View File

@ -594,6 +594,12 @@ initialization(G,OPT) :-
'$extend_exports'(File, Imports, OldF ) '$extend_exports'(File, Imports, OldF )
). ).
%
% reconsult at startup...
%
'$do_startup_reconsult'(_X) :-
'$init_win_graphics',
fail.
'$do_startup_reconsult'(X) :- '$do_startup_reconsult'(X) :-
( '$access_yap_flags'(15, 0) -> ( '$access_yap_flags'(15, 0) ->
'$system_catch'(load_files(X, [silent(true)]), Module, Error, '$Error'(Error)) '$system_catch'(load_files(X, [silent(true)]), Module, Error, '$Error'(Error))