;; Source file: ../lisp/scheme/syntax.jl
(validate-byte-code 11 0)

(define-structure scheme.syntax (export quote lambda if set! cond case and or let let* letrec begin do delay define) ((open rep scheme.syntax-funs)) (defmacro lambda #["Ë0 °v" [expand-lambda] 1048578]) (defmacro if #["Ë0 °v" [expand-if] 1048578]) (defmacro set! #["Ë0 °v" [expand-set!] 1048578]) (defmacro cond #["Ë0 °v" [expand-cond] 1048578]) (defmacro case #["Ë0 °v" [expand-case] 1048578]) (defmacro or #["Ë0 °v" [expand-or] 1048578]) (defmacro and #["Ë0 °v" [expand-and] 1048578]) (defmacro let #["Ë0 °v" [expand-let] 1048578]) (defmacro let* #["Ë0 °v" [expand-let*] 1048578]) (defmacro letrec #["Ë0 °v" [expand-letrec] 1048578]) (defmacro begin #["Ë0 Kv" [\#progn] 1048578]) (defmacro do #["Ë0 °v" [expand-do] 1048578]) (defmacro delay #["Ë0 °v" [expand-delay] 1048578]) (defmacro define #["Ë0 °v" [expand-define] 1048578]))