This commit is contained in:
Ryan Culpepper 2014-06-12 14:34:25 -04:00
parent d330c2104e
commit 848067c5db

View File

@ -66,7 +66,7 @@ is like an ordinary syntax class but for head patterns.
(define-syntax (mycond stx)
(define-splicing-syntax-class maybe-fallthrough-option
(pattern (~seq #:error-on-fallthough who:expr)
(pattern (~seq #:error-on-fallthrough who:expr)
#:with error? #'#t)
(pattern (~seq)
#:with error? #'#f