actors: Move actors center-stage in 8sync.

[8sync.git] / 8sync / systems / actors / debug.scm

diff --git a/8sync/systems/actors/debug.scm b/8sync/systems/actors/debug.scm
deleted file mode 100644 (file)
index 465751c..0000000
--- a/8sync/systems/actors/debug.scm
+++ /dev/null
@@ -1,58 +0,0 @@
-;;; 8sync --- Asynchronous programming for Guile
-;;; Copyright (C) 2016 Christopher Allan Webber <cwebber@dustycloud.org>
-;;;
-;;; This file is part of 8sync.
-;;;
-;;; 8sync is free software: you can redistribute it and/or modify it
-;;; under the terms of the GNU Lesser General Public License as
-;;; published by the Free Software Foundation, either version 3 of the
-;;; License, or (at your option) any later version.
-;;;
-;;; 8sync is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU Lesser General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU Lesser General Public
-;;; License along with 8sync.  If not, see <http://www.gnu.org/licenses/>.
-
-(define-module (8sync systems actors debug)
-  #:use-module (oop goops)
-  #:use-module (8sync systems actors)
-  #:export (hive-resolve-local-actor
-            actor-hive
-
-            hive-create-actor-gimmie
-            hive-create-actor-gimmie*))
-
-\f
-;;; Expose not normally exposed methods
-;;; ===================================
-
-;; "private" kind of a misnomer
-(define-syntax-rule (expose private-var)
-  (define private-var
-    (@@ (8sync systems actors) private-var)))
-
-(expose hive-resolve-local-actor)
-(expose actor-hive)
-
-
-\f
-;;; Some utilities
-;;; =============
-
-(define (hive-create-actor-gimmie hive actor-class . init)
-  "Create an actor on the hive, and give us that actor.
-Uses hive-create-actor* arguments."
-  (let ((actor-id (apply hive-create-actor hive actor-class init)))
-    (hive-resolve-local-actor hive actor-id)))
-
-(define (hive-create-actor-gimmie* hive actor-class id-cookie . init)
-  "Create an actor on the hive, and give us that actor.
-Uses hive-create-actor* arguments."
-  (let ((actor-id (apply hive-create-actor*
-                         hive actor-class id-cookie init)))
-    (hive-resolve-local-actor hive actor-id)))
-
-