Fixed program line indicator to not advance to the next line when program halts

tm/tmachine.rkt

@@ -166,13 +166,12 @@
         (define line-before (tm-config-line-no tm))
         (define stmt (vector-ref (tm-config-program tm) (tm-config-line-no tm)))
         (execute-statement! tm stmt)
-        (when (not (eq? (tm-config-state tm) 'running)) (void))
-        
-        (when (= line-before (tm-config-line-no tm))
+        (when (eq? (tm-config-state tm) 'running)
+          (when (= line-before (tm-config-line-no tm))
             (go-to-next-line! tm))
-        (when (and (>= (tm-config-line-no tm) (tm-config-last-line-no tm))
-                   (eq? (tm-config-state tm) 'running))
-               (set-tm-config-state! tm 'reject)))))
+          (when (>= (tm-config-line-no tm) (tm-config-last-line-no tm))
+                   
+            (set-tm-config-state! tm 'reject))))))
 
 (define MAX-STEPS 100000) ; 100k steps should be enough
 ;(define MAX-STEPS 10000000)