20 lines
372 B
Scheme
20 lines
372 B
Scheme
|
|
#lang scheme/base
|
|
(require "private/sc.ss"
|
|
"private/lib.ss")
|
|
|
|
(provide define-syntax-class
|
|
define-basic-syntax-class
|
|
define-basic-syntax-class*
|
|
pattern
|
|
|
|
syntax-parse
|
|
syntax-parser
|
|
with-patterns
|
|
...*
|
|
|
|
current-expression
|
|
current-macro-name
|
|
|
|
(all-from-out "private/lib.ss"))
|