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

enable path expansion by default

Browse Source
This commit is contained in:
Vítor Santos Costa
2015-04-24 10:03:44 -06:00
parent d5ce9a1376
commit 0ed3ee4fc4
16 changed files with 1551 additions and 1566 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
library/system.yap
View File

@@ -526,9 +526,10 @@ handle_system_error(Error, off, G) :-
throw(error(system_error(Message),G)).
handle_system_error(Error, _Id, _Ignore, _G) :- var(Error), !.
handle_system_error(Error, SIG, off, G) :- integer(Error), !,
error_message(Error, Message).
handle_system_error(signal, SIG, off, G) :- atom(Error), !,
handle_system_error(Error, _SIG, off, G) :- integer(Error), !,
error_message(Error, Message),
throw(error(system_error(Message),G)).
handle_system_error(signal, SIG, off, G) :- !,
throw(error(system_error(child_signal(SIG)),G)).
handle_system_error(stopped, SIG, off, G) :-
throw(error(system_error(child_stopped(SIG)),G)).