Removed e from fold-pat attributes.

This commit is contained in:
James Ian Johnson 2011-08-18 17:17:15 -04:00 committed by Sam Tobin-Hochstadt
parent def3834aa2
commit 58d84d79db

View File

@ -80,7 +80,7 @@
;; pattern for the match as ;; pattern for the match as
(define-syntax-class (fold-pat fold-name) (define-syntax-class (fold-pat fold-name)
#:transparent #:transparent
#:attributes (e proc) #:attributes (proc)
(pattern #:base (pattern #:base
#:with proc #`(procedure-rename #:with proc #`(procedure-rename
(lambda () #,fold-target) (lambda () #,fold-target)