chiark / gitweb /
fix typo
authorian <ian>
Sun, 1 Jun 2008 23:48:50 +0000 (23:48 +0000)
committerian <ian>
Sun, 1 Jun 2008 23:48:50 +0000 (23:48 +0000)
hostside/multiplex

index 94fad130718ad578c91dc823d380efe0d8255c65..92ad47325ae03ff03d419bde9faa8bb16fa4a0c4 100755 (executable)
@@ -110,7 +110,7 @@ proc savereplay-clear {pk} {
 proc savereplay-clear-re {re} { # re is anchored at start
     global replay
     if {![info exists replay]} return
-    foreack pk [array names replay] {
+    foreach pk [array names replay] {
        if {[regexp -- ^$re $pk]} { unset replay($pk) }
     }
 }