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

fix bad handle passing

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-05-23 18:23:51 +01:00
parent 00a0f438ef
commit 6722ec6fec
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/MYDDAS/myddas_assert_predicates.ypp
View File

@ -113,7 +113,7 @@ db_import(Connection,RelationName,PredName) :-
Assert =..[':-',P,','(M:'$copy_term_nv'(P,[],G,_), Assert =..[':-',P,','(M:'$copy_term_nv'(P,[],G,_),
','(M:translate(G,G,Code), ','(M:translate(G,G,Code),
','(M:queries_atom(Code,FinalSQL), ','(M:queries_atom(Code,FinalSQL),
','(M:c_db_odbc_query(FinalSQL,ResultSet,Arity,BindList,Connection), ','(M:c_db_odbc_query(FinalSQL,ResultSet,Arity,BindList,Con),
','(M:'$write_or_not'(FinalSQL), ','(M:'$write_or_not'(FinalSQL),
','(!,M:c_db_odbc_row(ResultSet,BindList,LA)))))))] ','(!,M:c_db_odbc_row(ResultSet,BindList,LA)))))))]
), ),