agenda: Rename 8sync-immediate to 8sync-nowait and fix.

* 8sync/agenda.scm (8sync-nowait): Rename from 8sync-immediate.
  Fix so that it runs (needed to put body in lambda)

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index 195b23a300354bd183ffe4d2e8b3251b908c27d9..f20fffe889507a936a1e13df3d70f51c82c5a2ac 100644 (file)
--- a/8sync/agenda.scm
+++ b/8sync/agenda.scm
@@ -71,6 +71,7 @@
             8sync 8sync-delay
             8sync-run 8sync-run-at 8sync-run-delay
             8sync-port 8sync-port-remove
             8sync 8sync-delay
             8sync-run 8sync-run-at 8sync-run-delay
             8sync-port 8sync-port-remove

+            8sync-nowait

             
             catch-8sync
 
             
             catch-8sync
 


@@ -593,7 +594,7 @@ Possibly specify WHEN as the second argument."
 
 ;; TODO: Write (%run-immediately)
 
 
 ;; TODO: Write (%run-immediately)
 

-(define-syntax-rule (8sync-immediate body)
+(define-syntax-rule (8sync-nowait body)

   "Run body asynchronously but ignore its result...
 forge ahead in our current function!"
   (8sync-abort-to-prompt
   "Run body asynchronously but ignore its result...
 forge ahead in our current function!"
   (8sync-abort-to-prompt


@@ -602,7 +603,7 @@ forge ahead in our current function!"
       (list (make-run-request
              ;; See comment in 8sync-port
              (wrap (kont #f)) #f)
       (list (make-run-request
              ;; See comment in 8sync-port
              (wrap (kont #f)) #f)

-            (make-run-request body #f))))))
+            (make-run-request (lambda () body) #f))))))

 
 (define-syntax-rule (catch-8sync exp (handler-key handler) ...)
   (catch '8sync-caught-error
 
 (define-syntax-rule (catch-8sync exp (handler-key handler) ...)
   (catch '8sync-caught-error