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

fix ! in debugger (execute_clause)

Browse Source 
improve system/1 and execute/1


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1610 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-04-25 03:23:40 +00:00
parent 1265946374
commit b9e5416355
5 changed files with 55 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
library/system.yap
View File

@@ -374,7 +374,8 @@ shell(Command) :-
G = shell(Command),
check_command(Command, G),
get_shell(Shell,Opt),
do_shell(Shell, Opt, Command, _, Error),
do_shell(Shell, Opt, Command, Status, Error),
Status = 0,
handle_system_error(Error, off, G).
shell(Command, Status) :-
@@ -416,6 +417,7 @@ system(Command, Status) :-
G = system(Command, Status),
check_command(Command, G),
do_system(Command, Status, Error),
Status = 0,
handle_system_error(Error, off, G).
sleep(Interval) :- var(Interval), !,