From c8a5172bcd94f27e97cf6353fb9480dbcb29e9c1 Mon Sep 17 00:00:00 2001 From: Moritz Heidkamp Date: Wed, 17 Aug 2011 18:20:54 +0200 Subject: [PATCH] inject where inject is due --- ssql.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ssql.scm b/ssql.scm index d503c85..24953cb 100644 --- a/ssql.scm +++ b/ssql.scm @@ -26,13 +26,13 @@ (let ((ssql-op (first op)) (type (second op))) - (unless (memq (strip-syntax type) '(infix infix* suffix prefix function)) + (unless (memq (i type) '(infix infix* suffix prefix function)) (error "unknown operator syntax type" type)) (let-optionals (cddr op) ((sql-op (string-upcase (->string (strip-syntax ssql-op)))) (separator #f)) - `((,(strip-syntax ssql-op) operands) + `((,(i ssql-op) operands) (self 'operator->sql ',type ,sql-op ,separator operands))))) (cddr x))))))))