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

(require "../../base.ss")

(require "syntax-hash-internal.ss")

(define join-hash     (make-syntax-hash))
(define function-hash (make-syntax-hash))

(define join-hash-ref      (cut syntax-hash-ref    join-hash <>))
(define join-hash-add!     (cut syntax-hash-add!   join-hash <> <> <> <>))
(define expand-join        (cut syntax-hash-expand join-hash <>))

(define function-hash-ref  (cut syntax-hash-ref    function-hash <>))
(define function-hash-add! (cut syntax-hash-add!   function-hash <> <> <> <>))
(define expand-function    (cut syntax-hash-expand function-hash <>))

(provide (except-out (struct-out syntax-info) make-syntax-info)
         join-hash-ref
         join-hash-add!
         join-hash-expand
         function-hash-ref
         function-hash-add!
         function-hash-expand)