I see, I had misunderstood the @'s meaning there. Thanks for the clarification!
On Tue, May 18, 2021 at 12:03 AM Alexander Burger <a...@software-lab.de> wrote: > 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 >
