}
set pointasked M
} elseif {![string compare $pointasked M]} {
- debug "leave point $point pos=$pos manual"
+ debug "leave point $point manual"
return
} else {
set pos $pointasked
proc setup {} {
global port p testonly
+ fconfigure stdout -buffering none
if {!$testonly} {
set p [open $port {RDWR NONBLOCK} 0]
}
proc ask_manual {rightp} { global pointasked; set pointasked M$rightp }
-proc ask_figureeightt {} { global pointasked; set pointasked 0 }
+proc ask_figureeight {} { global pointasked; set pointasked 0 }
proc ask_loop {} { global pointasked; set pointasked 1 }
proc ask_randpath {} { global pointasked; catch { unset pointasked } }