Changeset 1029 for trunk/modules/system.tcl

Timestamp:

09/08/09 19:22:58 (3 years ago)

Author:

james

Message:

tidy up sillyThings learning filtering
fix minor logic error in %VAR processing
add adjectives into sillyThings output

File:

• trunk/modules/system.tcl (modified) (1 diff)

trunk/modules/system.tcl

@@ -1213 +1213 @@
         }
 
+        if {[string length $item] == 1} {
+                return 0
+        }
+
         if [regexp -nocase {^(for|i)\M} $item] {
                 return 0