From 9379661e06651d62b1bc90adfd48fe2f4c57e1dd Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 30 Oct 2013 16:49:45 +0000 Subject: [PATCH] Fix silly bug in module-begin for #lang minimart --- minimart/lang.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/minimart/lang.rkt b/minimart/lang.rkt index fb2c1ca..77f5142 100644 --- a/minimart/lang.rkt +++ b/minimart/lang.rkt @@ -43,7 +43,7 @@ (if (free-identifier=? #'head #'begin) (accumulate-actions action-ids final-forms - (append (syntax->list #'(rest ...)) forms)) + (append (syntax->list #'(rest ...)) (cdr forms))) (if (ormap (lambda (i) (free-identifier=? #'head i)) (syntax->list #'(define-values define-syntaxes begin-for-syntax module module*