re-use the function operator for `call' instead of re-implementing it

13 years ago · 25e5e8b98b
parent cc9ea436a5
commit 25e5e8b98b
1 changed files with 1 additions and 7 deletions
--- 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