[Xsb-commits] CVS: XSB/lib odbc_call.P,1.21,1.22

[David S. W. <dw...@us...>]

Update of /cvsroot/xsb/XSB/lib
In directory usw-pr-cvs1:/tmp/cvs-serv21537

Modified Files:
	odbc_call.P 
Log Message:
Add clause to handl $const$ in split_in_out_l/5 to fix null value handling, as suggested
by a user.


Index: odbc_call.P
===================================================================
RCS file: /cvsroot/xsb/XSB/lib/odbc_call.P,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- odbc_call.P	2001/08/08 15:05:39	1.21
+++ odbc_call.P	2002/01/02 14:58:56	1.22
@@ -1417,6 +1417,9 @@
 split_in_out_l(['$var$'(_)|ModeList],BindList,[X|InVars],
 	       InBinds,[X|OutVars]) :-
 	split_in_out_l(ModeList,BindList,InVars,InBinds,OutVars).
+split_in_out_l(['$const$'(C)|ModeList],BindList,[_|InVars],
+	       InBinds, [C|OutVars]) :-
+	split_in_out_l(ModeList,BindList,InVars,InBinds,OutVars).
 
 bind_inbinds([],_B,_X,[]).
 bind_inbinds([B1|Bs],B,X,[X1|Xs]) :-