X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=loopy.scm;h=22b6ac894aac168b3f6c85258e98f89899e54f70;hp=1d227f12dbc10672fbf1584db970a52b36ede55f;hb=cc3001a104f7e2f75858737eb930343c4a8b7999;hpb=e518ad9f79e144d8f0f49feace29d30ac2acf7d6 diff --git a/loopy.scm b/loopy.scm index 1d227f1..22b6ac8 100644 --- a/loopy.scm +++ b/loopy.scm @@ -643,8 +643,8 @@ return the wrong thing via (8sync) and trip themselves up." based on the results" (define (call-proc proc) (call-with-prompt - (agenda-prompt-tag agenda) - proc setup-async-request)) + (agenda-prompt-tag agenda) + proc setup-async-request)) (let ((queue (agenda-queue agenda)) (next-queue (make-q)))