[htoolkit-cvs] HSQL/MySQL HSQL.hsc,1.3,1.4

[<kr_...@us...>]

Update of /cvsroot/htoolkit/HSQL/MySQL
In directory sc8-pr-cvs1:/tmp/cvs-serv17503/MySQL

Modified Files:
	HSQL.hsc 
Log Message:
Force strict evaluation in findFieldInfo


Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/MySQL/HSQL.hsc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** HSQL.hsc	25 Sep 2003 16:32:49 -0000	1.3
--- HSQL.hsc	25 Sep 2003 16:45:30 -0000	1.4
***************
*** 429,433 ****
  findFieldInfo name (fieldDef@(name',sqlType,nullable):fields) colNumber
  	| name == name' = (sqlType,nullable,colNumber)
! 	| otherwise		= findFieldInfo name fields (colNumber+1)
  
  -----------------------------------------------------------------------------------------
--- 429,433 ----
  findFieldInfo name (fieldDef@(name',sqlType,nullable):fields) colNumber
  	| name == name' = (sqlType,nullable,colNumber)
! 	| otherwise		= findFieldInfo name fields $! (colNumber+1)
  
  -----------------------------------------------------------------------------------------