On Mon, May 17, 2021 at 04:53:50PM -0500, polifemo wrote: > So, running: > (task -5000 (/ @ 5) (tty (println 'a))) > > does not save in *Run my expected: > (-5000 -1000 (tty (println 'a))) > > but instead it saves this: > (-5000 NIL (tty (println 'a))) > > my guess is that `(eval (++ Prg) 1)` is not working properly, though I am > probably just doing it wrong.
It all depends on what is *before* the 'task' call. After all, the purpose of the 'eval' offset is to use the *caller*'s value of '@'. For example: : (when (format (key)) (task -5000 (msg (* @ 10)) (tty (println 'a)) ) ) 70 # After hitting key "7" -> (-5000 70 (tty (println 'a))) a a .... ☺/ A!ex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe