From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Wed, 1 Nov 2017 00:59:21 +0000 (-0500)
Subject: actors: Have actors attach class name as cookie to actor address by default.
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=2e61438643691be6b1ba232459801b9745689a41

actors: Have actors attach class name as cookie to actor address by default.

* 8sync/actors.scm (*debug-actor-ids*): New parameter.
(create-actor): If `*debug-actor-ids*' is #t, add class name as cookie
to actor address.
---

diff --git a/8sync/actors.scm b/8sync/actors.scm
index bb4d342..f9a95ce 100644
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -86,7 +86,9 @@
 
             ;; Maybe the wrong place for this, or for it to be exported.
             ;; But it's used in websockets' server implementation at least...
-            live-wrap))
+            live-wrap
+
+            *debug-actor-ids*))
 
 ;; For ids
 (set! *random-state* (random-state-from-platform))
@@ -652,14 +654,22 @@ to spawn-hive... all remaining arguments passed to run-fibers."
     ;; return the address
     address))
 
+;;; Whether or not to attach the class' name as a cookie by default in
+;;; create-actor
+(define *debug-actor-ids*
+  (make-parameter #t))
+
 (define* (create-actor actor-class #:rest init-args)
   "Create an instance of actor-class.  Return the new actor's id.
 
 This is the method actors should call directly (unless they want
 to supply an id-cookie, in which case they should use
 create-actor*)."
-  (%create-actor actor-class init-args #f #t))
-
+  (%create-actor actor-class init-args
+                 (if (*debug-actor-ids*)
+                     (symbol->string (class-name actor-class))
+                     #f)
+                 #t))
 
 (define* (create-actor* actor-class id-cookie #:rest init-args)
   "Create an instance of actor-class.  Return the new actor's id.