bugfix

[trains.git] / hostside / stopgap-controller

diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index df5595bcdb67f72b495c65faed53dd4396fce364..45de0e8ab274f8478de597f59c73f9526c2958c5 100755 (executable)
--- a/hostside/stopgap-controller
+++ b/hostside/stopgap-controller
@@ -191,8 +191,8 @@ proc pt_maybe {point oneisright} {
        debug "leave point $point pos=$pos manual"
        return
     } else {
-       debug "fixed point $point pos=$pos"
        set pos $pointasked
+       debug "fixed point $point pos=$pos"
     }
     pt_must $point $pos
 }
@@ -494,9 +494,9 @@ proc ask_randspeed {} {
 }    
 
 proc ask_manual {rightp} { global pointasked; set pointasked M$rightp }
-proc ask_figureeightt {rightp} { global pointasked; set pointasked 0 }
-proc ask_loop {rightp} { global pointasked; set pointasked 1 }
-proc ask_randpath {rightp} { global pointasked; catch { unset pointasked } }
+proc ask_figureeightt {} { global pointasked; set pointasked 0 }
+proc ask_loop {} { global pointasked; set pointasked 1 }
+proc ask_randpath {} { global pointasked; catch { unset pointasked } }
 
 setup
 gui_init