From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 stdlib/source/program/aedifex/profile.lux | 36 +++++++++++++++----------------
 1 file changed, 18 insertions(+), 18 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/profile.lux b/stdlib/source/program/aedifex/profile.lux
index 2ff458967..f4a1f9a0d 100644
--- a/stdlib/source/program/aedifex/profile.lux
+++ b/stdlib/source/program/aedifex/profile.lux
@@ -230,24 +230,24 @@
 
   (def: (compose override baseline)
     (template.let [(!runtime <tag> <runtime>)
-                   [(if (runtime\= <runtime> (get@ <tag> override))
-                      (get@ <tag> baseline)
-                      (get@ <tag> override))]]
-      {#parents (list\compose (get@ #parents baseline) (get@ #parents override))
-       #identity (maybe\compose (get@ #identity override) (get@ #identity baseline))
-       #info (maybe\compose (get@ #info override) (get@ #info baseline))
-       #repositories (set.union (get@ #repositories baseline) (get@ #repositories override))
-       #dependencies (set.union (get@ #dependencies baseline) (get@ #dependencies override))
-       #compiler (if (dependency\= ..default_compiler (get@ #compiler override))
-                   (get@ #compiler baseline)
-                   (get@ #compiler override))
-       #sources (set.union (get@ #sources baseline) (get@ #sources override))
-       #target (if (text\= ..default_target (get@ #target baseline))
-                 (get@ #target override)
-                 (get@ #target baseline))
-       #program (maybe\compose (get@ #program override) (get@ #program baseline))
-       #test (maybe\compose (get@ #test override) (get@ #test baseline))
-       #deploy_repositories (dictionary.merged (get@ #deploy_repositories override) (get@ #deploy_repositories baseline))
+                   [(if (runtime\= <runtime> (value@ <tag> override))
+                      (value@ <tag> baseline)
+                      (value@ <tag> override))]]
+      {#parents (list\compose (value@ #parents baseline) (value@ #parents override))
+       #identity (maybe\compose (value@ #identity override) (value@ #identity baseline))
+       #info (maybe\compose (value@ #info override) (value@ #info baseline))
+       #repositories (set.union (value@ #repositories baseline) (value@ #repositories override))
+       #dependencies (set.union (value@ #dependencies baseline) (value@ #dependencies override))
+       #compiler (if (dependency\= ..default_compiler (value@ #compiler override))
+                   (value@ #compiler baseline)
+                   (value@ #compiler override))
+       #sources (set.union (value@ #sources baseline) (value@ #sources override))
+       #target (if (text\= ..default_target (value@ #target baseline))
+                 (value@ #target override)
+                 (value@ #target baseline))
+       #program (maybe\compose (value@ #program override) (value@ #program baseline))
+       #test (maybe\compose (value@ #test override) (value@ #test baseline))
+       #deploy_repositories (dictionary.merged (value@ #deploy_repositories override) (value@ #deploy_repositories baseline))
        #java (!runtime #java runtime.default_java)
        #js (!runtime #js runtime.default_js)
        #python (!runtime #python runtime.default_python)
-- 
cgit v1.2.3