23 lines
660 B
Scheme
23 lines
660 B
Scheme
#lang scheme/base
|
|
|
|
(require (only-in "runtime.ss"
|
|
match-equality-test
|
|
exn:misc:match?)
|
|
(only-in "match-expander.ss"
|
|
define-match-expander)
|
|
"define-forms.ss"
|
|
"struct.ss"
|
|
(for-syntax "parse.ss"
|
|
"gen-match.ss"
|
|
(only-in "patterns.ss" match-...-nesting)))
|
|
|
|
(provide (for-syntax match-...-nesting)
|
|
match-equality-test
|
|
define-match-expander
|
|
struct*
|
|
exn:misc:match?)
|
|
|
|
(define-forms parse/cert
|
|
match match* match-lambda match-lambda* match-lambda** match-let match-let*
|
|
match-define match-letrec)
|