From 35e94e023c500e770944b22507a5fa046e7514d0 Mon Sep 17 00:00:00 2001
From: Moritz Heidkamp <moritz-gitorious@twoticketsplease.de>
Date: Thu, 31 Mar 2011 22:06:54 +0200
Subject: [PATCH] allow column aliasing in (col ...)

---
 ssql.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ssql.scm b/ssql.scm
index 9c27356..d503c85 100644
--- 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))
                                     ", "))