From 7db42ab1b9d3c764772ca63c74bf44bb2b8b8325 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Jul 2022 14:35:38 -0400
Subject: First-class programs instead of having a "lux program" extension.

---
 stdlib/source/program/aedifex/format.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program/aedifex/format.lux')

diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux
index 06dfa2988..5eb32d757 100644
--- a/stdlib/source/program/aedifex/format.lux
+++ b/stdlib/source/program/aedifex/format.lux
@@ -8,8 +8,8 @@
      ["[0]" list (.use "[1]#[0]" monad)]
      ["[0]" set (.only Set)]]]
    [meta
+    ["[0]" code]
     [macro
-     ["[0]" code]
      ["[0]" template]]
     [compiler
      [meta
@@ -171,8 +171,8 @@
           (..on_list "compilers" (the /.#compilers value) ..compiler)
           (..on_set "sources" (the /.#sources value) code.text)
           (dictionary.has "target" (code.text (the /.#target value)))
-          (..on_maybe "program" (the /.#program value) code.text)
-          (..on_maybe "test" (the /.#test value) code.text)
+          (..on_maybe "program" (the /.#program value) code.symbol)
+          (..on_maybe "test" (the /.#test value) code.symbol)
           (..on_dictionary "deploy_repositories" (the /.#deploy_repositories value) code.text code.text)
           (,, (with_template [<tag>]
                 [(dictionary.has (template.text [<tag>]) (..runtime (the <tag> value)))]
-- 
cgit v1.2.3