[q-lang-cvs] q/modules/clib system.c,1.2,1.3

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/q/modules/clib
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv24689/clib

Modified Files:
	system.c 
Log Message:
add missing coerce_float function

Index: system.c
===================================================================
RCS file: /cvsroot/q-lang/q/modules/clib/system.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** system.c	2 Oct 2007 03:28:24 -0000	1.2
--- system.c	16 Dec 2007 09:37:39 -0000	1.3
***************
*** 6028,6031 ****
--- 6028,6039 ----
  }
  
+ static int coerce_float(expr x, double *d)
+ {
+   if (isfloat(x, d) || ismpz_float(x, d))
+     return 1;
+   else
+     return 0;
+ }
+ 
  FUNCTION(system,strfmon,argc,argv)
  {