#lang scheme/unit
  
(require (file "../base.ss")
         (file "../generic/sql-name-sig.ss"))

(import)

(export sql-name^)

; symbol -> string
(define (escape-name name)
  (string-append "\"" (symbol->string name) "\""))