16 lines
608 B
Plaintext
16 lines
608 B
Plaintext
;;;; A program that never imports the agent and is still running. flan dev
|
|
;;;; links the agent anyway, so a delivery is queued rather than refused; it
|
|
;;;; installs at a frame boundary the program never reaches, since nothing in
|
|
;;;; it calls (agent/poll).
|
|
;;;;
|
|
;;;; No (import agent ...) anywhere, and a loop that outlasts the test.
|
|
(defn step [] i64 7)
|
|
|
|
(defn main [] i32
|
|
(print (step)) (println "")
|
|
;; Long enough that the session ends before the program does; short enough
|
|
;; that a daemon killed the hard way leaves nothing running for minutes.
|
|
(dotimes [i 3000]
|
|
(sleep-seconds 0.01))
|
|
0)
|