From e11ec5c64527590323529a058466ef586195b5c0 Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Thu, 23 Oct 2025 02:19:56 +1100
Subject: [PATCH] disable some of the more annoying debug output

---
 src/modules/punk/ns-999999.0a1.0.tm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/modules/punk/ns-999999.0a1.0.tm b/src/modules/punk/ns-999999.0a1.0.tm
index 41b17471..2341838d 100644
--- a/src/modules/punk/ns-999999.0a1.0.tm
+++ b/src/modules/punk/ns-999999.0a1.0.tm
@@ -3358,7 +3358,7 @@ tcl::namespace::eval punk::ns {
                 if {[string match (autodef)* $origin]} {
                     set origin [string range $origin 9 end]
                 }
-                puts "->$final neworigin: $origin consumed:$consumed remaining:$remainingargs docid:$docid"
+                #puts "->$final neworigin: $origin consumed:$consumed remaining:$remainingargs docid:$docid"
                 lappend stack [list $origin {*}$consumed]
                 lappend commands $origin
                 lappend consumed_args {*}$consumed
@@ -3776,7 +3776,7 @@ tcl::namespace::eval punk::ns {
                             #incr i [expr {-1 * [llength $resolvedargs]+1}]  ;#wrong e.g test trace add execution blah enterstep cmd
                             #JJJ
 
-                            puts stderr "... yield-result $origin i:$i args: $args"
+                            #puts stderr "... yield-result $origin i:$i args: $args"
                             ledit args $i+1 $i {*}$eparams
                             set eparams [list]
 
@@ -3804,7 +3804,7 @@ tcl::namespace::eval punk::ns {
                     } ;#end loop foreach q $queryargs lname $leadernames_matched
                 } else {
                     #??
-                    puts stderr "cmdinfo.cmd_traverse returning 8 origin: $origin resolved: $resolvedargs remaining: [lrange $args $i end] docid: $docid"
+                    #puts stderr "cmdinfo.cmd_traverse returning 8 origin: $origin resolved: $resolvedargs remaining: [lrange $args $i end] docid: $docid"
                     return [list 8 $origin $resolvedargs [lrange $args $i end] $docid]
                 }
             } else {