From 08518ba37d9094c5cc8683fc404c349e534b8dc9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 24 Feb 2022 17:47:27 -0400
Subject: Finishing the meta-compiler [Part 4]

---
 stdlib/source/library/lux.lux | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/library/lux.lux')

diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index 20122f66c..e46090db0 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -3910,12 +3910,17 @@
                                                      [[t_module t_name]
                                                       ["" (..module_alias (list t_name) alias)]])
                                                    tags)
-                                 pattern (|> locals
-                                             (list#each (function (_ [slot binding])
-                                                          (list (symbol$ slot)
-                                                                (symbol$ binding))))
-                                             list#conjoint
-                                             tuple$)]
+                                 pattern (case locals
+                                           (^ (list [slot binding]))
+                                           (symbol$ binding)
+
+                                           _
+                                           (|> locals
+                                               (list#each (function (_ [slot binding])
+                                                            (list (symbol$ slot)
+                                                                  (symbol$ binding))))
+                                               list#conjoint
+                                               tuple$))]
                              (do meta_monad
                                [enhanced_target (monad#mix meta_monad
                                                            (function (_ [[_ m_local] m_type] enhanced_target)
-- 
cgit v1.2.3