give trace a default block if none provided

rdp · Jun 18, 2009 · 1149611 · 1149611
1 parent 998fa76
commit 1149611
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/regbind.rb b/regbind.rb
@@ -109,6 +109,10 @@ class Trace
     include Reg,Composite
 
     def initialize(reg,&block)
+      block||=proc{|reg,other,result|
+        print "not " unless result
+        print reg.inspect, " === ", other.inspect, "\n"
+      } 
       @reg,@block=reg,block
       super
 #      extend( HasCmatch===@reg ? HasCmatch : HasBmatch )