allow column aliasing in (col ...)

14 years ago · 35e94e023c
parent c23ca2ce48
commit 35e94e023c
1 changed files with 4 additions and 1 deletions
--- a/ssql.scm
+++ b/ssql.scm
@ -80,7 +80,10 @@

               ((col ssql)
                (string-intersperse (map (lambda (colname)
-                                           (self 'ssql->sql (string->symbol (sprintf "~A.~A" (car ssql) colname))))
+                                           (self 'ssql->sql 
+                                                 (string->symbol (sprintf "~A.~A" 
+                                                                          (car ssql)
+                                                                          (self 'ssql->sql colname)))))
                                         (cdr ssql))
                                    ", "))