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
