From 25e5e8b98bf08700d558b8d04f3a756c12231392 Mon Sep 17 00:00:00 2001
From: Moritz Heidkamp <moritz-gitorious@twoticketsplease.de>
Date: Tue, 23 Aug 2011 17:00:45 +0200
Subject: [PATCH] re-use the function operator for `call' instead of
 re-implementing it

---
 ssql.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/ssql.scm b/ssql.scm
index 10b594d..3db7b77 100644
--- a/ssql.scm
+++ b/ssql.scm
@@ -141,13 +141,7 @@
                 (self 'insert table rest))
 
                ((call (function args ...))
-                (sprintf "~A(~A)"
-                         function
-                         (string-intersperse
-                          (map (lambda (arg) 
-                                 (self 'ssql->sql arg #t))
-                               args)
-                          ", ")))
+                (self 'operator->sql 'function function #f args))
 
                ((operator->sql type operator separator operands)
                 (case type