From ec6364a0343315c14dfd1b926991b5ccdd1d7542 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 14 Jan 2015 22:29:16 -0800
Subject: 570 - warn on potential name conflict

---
 mu.arc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mu.arc b/mu.arc
index 59a16e70..31bba88d 100644
--- a/mu.arc
+++ b/mu.arc
@@ -1285,6 +1285,8 @@
       function
         (let (name (_make-br-fn body))  rest
           (assert (is 'make-br-fn _make-br-fn))
+          (when function*.name
+            (prn "adding new clause to @name"))
           (= function*.name (join body function*.name)))
 
       ; and-record <type> [ <name:types> ]
-- 
cgit 1.4.1-2-gfad0