From 17629d66062b88b040a2397032f6c08361a5f3a7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 12 Aug 2021 03:12:42 -0400
Subject: Improved binding syntax for "syntax:".

---
 stdlib/source/program/aedifex/project.lux | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(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 30c4d9538..fdaf77e6c 100644
--- a/stdlib/source/program/aedifex/project.lux
+++ b/stdlib/source/program/aedifex/project.lux
@@ -61,7 +61,7 @@
       
       #.None
       (do {! try.monad}
-        [parents (monad.map ! (profile' (set.add name lineage) project)
+        [parents (monad.map ! (profile' (set.has name lineage) project)
                             (get@ #//.parents profile))]
         (in (list\fold (function (_ parent child)
                          (\ //.monoid compose child parent))
-- 
cgit v1.2.3