Merged in sjamaan/ssql (pull request #1)

Strip the syntax of operator type instead of injecting it
8 years ago · 9c3a02a21a
parent 54e50214a8 16682ee9fc
commit 9c3a02a21a
1 changed files with 3 additions and 2 deletions
--- a/ssql.scm
+++ b/ssql.scm
@ -28,7 +28,8 @@
                                      (let ((ssql-op (first op))
                                            (type (second op)))

-                                        (unless (memq (i type) '(infix infix* suffix prefix suffix* prefix* function))
+                                        (unless (memq (strip-syntax type)
+                                                      '(infix infix* suffix prefix suffix* prefix* function))
                                          (error "unknown operator syntax type" type))

                                        (let-optionals (cddr op)
@ -358,4 +359,4 @@
                        clauses)))))


-)
+)