;;;; A program that just runs, for evaluating expressions against.
;;;;
;;;; Unlike dev-loop.flan it does not count reloads and stop: C-x C-e is a
;;;; thunk the agent runs at a frame boundary, so a program under test has to
;;;; keep reaching them. (agent/wait 5) is both the poll and the pacing — 5ms
;;;; of nothing, which is what a frame is when there is no frame.
(import agent "vendor:agent")

(defvar ticks i64)
(defconst step-by i64 3)

(defn step [] i64
  (set ticks (+ ticks 1))
  ticks)

(defn main [] i32
  (agent/start "/tmp/flan-dev-repl-fallback.sock")
  (dotimes [i 4000]
    (agent/wait 5)
    (set ticks (step)))
  0)