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

droid

Browse Source
This commit is contained in:
Vítor Santos Costa
2018-03-26 23:12:48 +01:00
parent 29af01c288
commit e3ac349a0d
86 changed files with 24 additions and 14229 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
packages/myddas/pl/myddas_errors.ypp
View File

@@ -174,6 +174,7 @@
nonvar(Module).
% Prevent the error of given an atom that has no value
'$error_checks'(get_value(Connection,Con)) :- !,
writeln(user_error,get_value(Connection,Con)),
% This also prevents the case of giving the number of the connection
% as an argument
atom(Connection),
@@ -181,11 +182,3 @@
get_value(Connection,Value),
Value \== [].
% Prevent the error of given an atom that has no value
'$error_checks'(get_value(Conn,Connection)) :- !,
% This also prevents the case of giving the number of the connection
% as an argument
atom(Conn),
var(Connection),
get_value(Conn,Value),
Value \== [].