oops

Wayne Richards <[email protected]> Fri, 30 Jan 2004 15:34:00 -0500

Newsgroups	gmane.lisp.scheme.plt.schematics
Message-ID	<1075494840.26319.9.camel@development>

Here's the attachment

Wayne

sql.patch (text/x-patch, 750 B)

*** sql.ss	Sat Jan  3 03:49:55 2004
--- sql-new.ss	Sat Jan  3 03:50:39 2004
***************
*** 897,903 ****
  			      (raise-type-error 'insert "string-or-symbol" tab))
  			  #cs(format "( ~a )" (join col #\,))
  			  (cond ((select? v) (schemeql-print-query v))
! 				((list? v) #cs(format "VALUES ( ~a )" (join-values (cons v rest) #\,)))
  				(else (raise-type-error 'insert "values-or-query" v))))))]))
  			  
  	    
--- 897,903 ----
  			      (raise-type-error 'insert "string-or-symbol" tab))
  			  #cs(format "( ~a )" (join col #\,))
  			  (cond ((select? v) (schemeql-print-query v))
! 				((list? v) #cs(format "VALUES ( ~a )" (join-values v #\,)))
  				(else (raise-type-error 'insert "values-or-query" v))))))]))