kritphong
/
ssql
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

inject where inject is due

Browse Source
master
Moritz Heidkamp 14 years ago
parent 35e94e023c
commit c8a5172bcd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
ssql.scm
Unescape Escape View File

@ -26,13 +26,13 @@
(let ((ssql-op (first op)) (let ((ssql-op (first op))
(type (second 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)) (error "unknown operator syntax type" type))
(let-optionals (cddr op) (let-optionals (cddr op)
((sql-op (string-upcase (->string (strip-syntax ssql-op)))) ((sql-op (string-upcase (->string (strip-syntax ssql-op))))
(separator #f)) (separator #f))
`((,(strip-syntax ssql-op) operands) `((,(i ssql-op) operands)
(self 'operator->sql ',type ,sql-op ,separator operands))))) (self 'operator->sql ',type ,sql-op ,separator operands)))))
(cddr x)))))))) (cddr x))))))))

Write Preview
Loading…
Cancel
Save