sql/sql-syntax.ss
#lang scheme/base

(require (for-syntax scheme/base
                     "sql-syntax-internal.ss"))

; Syntax -----------------------------------------

(define-syntax (sql stx)
  (syntax-case stx ()
    [(_ expr) (expand-top-level (syntax expr))]))

(define-syntax (sql-list stx)
  (syntax-case stx ()
    [(_ expr ...) (syntax/loc stx (list (sql expr) ...))]))

; Provide statements -----------------------------

(provide sql
         sql-list)