From a0e807ce438eb4aca23206ca497936dc934933bc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Wed, 26 Apr 2017 14:20:58 +0200
Subject: [PATCH] =?UTF-8?q?Pulled=20the=20options=20out=20of=20the=20(lang?=
 =?UTF-8?q?=20.=20chain=E2=82=8A)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 private/common.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/private/common.rkt b/private/common.rkt
index 797f750b..5f766263 100644
--- a/private/common.rkt
+++ b/private/common.rkt
@@ -179,9 +179,9 @@
     [(_modbeg {~or (lang:id
                     {~optional (~and no-require-lang #:no-require-lang)}
                     {~optional (~and no-auto-require #:no-auto-require)})
-                   (({~optional (~and no-require-lang #:no-require-lang)}
-                     {~optional (~and no-auto-require #:no-auto-require)}
-                     lang:id
+                   ({~optional (~and no-require-lang #:no-require-lang)}
+                    {~optional (~and no-auto-require #:no-auto-require)}
+                    (lang:id
                      . chain₊))}
               body0 . body)
      (let ()