7 lines
108 B
Scheme
7 lines
108 B
Scheme
#lang scheme
|
|
|
|
(define-struct a-match-fail ())
|
|
(define match-fail (make-a-match-fail))
|
|
|
|
(provide match-fail)
|