570 - warn on potential name conflict

1 files changed, 2 insertions, 0 deletions

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> ]