From d6c48ae6a8b58f5974133170863a31c70f0123d1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 14 Jul 2021 13:59:02 -0400
Subject: Normalized the hierarchy of the standard library modules.

---
 stdlib/source/spec/compositor/generation/case.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/spec/compositor/generation/case.lux')

diff --git a/stdlib/source/spec/compositor/generation/case.lux b/stdlib/source/spec/compositor/generation/case.lux
index 4f45a480c..2424aa330 100644
--- a/stdlib/source/spec/compositor/generation/case.lux
+++ b/stdlib/source/spec/compositor/generation/case.lux
@@ -140,7 +140,7 @@
 (def: special-input
   Synthesis
   (let [_cursor_ (: Synthesis
-                    (synthesis.tuple (list (synthesis.text "lux")
+                    (synthesis.tuple (list (synthesis.text .prelude_module)
                                            (synthesis.i64 +901)
                                            (synthesis.i64 +13))))
         _code_ (: (-> Synthesis Synthesis)
@@ -178,7 +178,7 @@
       (|> _nil_
           (_cons_ (__apply__ (__identifier__ ["" "form$"])
                              (__list__ (list (__apply__ (__identifier__ ["" "tag$"])
-                                                        (__tuple__ (list (__text__ "lux")
+                                                        (__tuple__ (list (__text__ .prelude_module)
                                                                          (__text__ "Cons"))))
                                              (__identifier__ ["" "export?-meta"])
                                              (__identifier__ ["" "tail"])))))
-- 
cgit v1.2.3