aboutsummaryrefslogtreecommitdiff
path: root/binary.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'binary.tcl')
-rw-r--r--binary.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/binary.tcl b/binary.tcl
index 5e9ae3f..cc9c9ea 100644
--- a/binary.tcl
+++ b/binary.tcl
@@ -125,7 +125,7 @@ proc "binary scan" {value formatString {args varName}} {
set n 1
}
if {$n > $rembytes} {
- continue
+ break
}
set var [binary.nextarg varName]
@@ -148,7 +148,7 @@ proc "binary scan" {value formatString {args varName}} {
}
}
if {$n * $size > $rembytes * 8} {
- continue
+ break
}
if {$type ne "int"} {