From e53c1a090eb9cfac3cb23d10d981648d02518ed1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 13 Aug 2021 04:18:57 -0400
Subject: Made program: specify its bindings the same way as syntax:.

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

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

diff --git a/stdlib/source/program/aedifex/project.lux b/stdlib/source/program/aedifex/project.lux
index fdaf77e6c..951e82d34 100644
--- a/stdlib/source/program/aedifex/project.lux
+++ b/stdlib/source/program/aedifex/project.lux
@@ -52,10 +52,10 @@
 
 (def: (profile' lineage project name)
   (-> (Set Name) Project Name (Try Profile))
-  (case (dictionary.get name project)
+  (case (dictionary.value name project)
     (#.Some profile)
-    (case (list.find (set.member? lineage)
-                     (get@ #//.parents profile))
+    (case (list.example (set.member? lineage)
+                        (get@ #//.parents profile))
       (#.Some ouroboros)
       (exception.except ..circular_dependency [ouroboros name])
       
-- 
cgit v1.2.3