X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Fdebug.scm;h=c2a561294b0988bb3359f776e74dbaf71c0c226f;hb=fa598a979d510a783f1d6f097f560f23de997c88;hp=a05f131b06e3d37b1c623981bf9415b20e264c8a;hpb=4deb5433574cfdf8f2b2bf22460c8b74ba426bed;p=8sync.git diff --git a/8sync/debug.scm b/8sync/debug.scm index a05f131..c2a5612 100644 --- a/8sync/debug.scm +++ b/8sync/debug.scm @@ -1,5 +1,5 @@ ;;; 8sync --- Asynchronous programming for Guile -;;; Copyright (C) 2016 Christopher Allan Webber +;;; Copyright © 2016, 2017 Christopher Allan Webber ;;; ;;; This file is part of 8sync. ;;; @@ -22,8 +22,8 @@ #:export (hive-resolve-local-actor actor-hive - hive-create-actor-gimmie - hive-create-actor-gimmie*)) + bootstrap-actor-gimmie + bootstrap-actor-gimmie*)) ;;; Expose not normally exposed methods @@ -42,16 +42,16 @@ ;;; Some utilities ;;; ============= -(define (hive-create-actor-gimmie hive actor-class . init) +(define (bootstrap-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))) +Uses bootstrap-actor* arguments." + (let ((actor-id (apply bootstrap-actor hive actor-class init))) (hive-resolve-local-actor hive actor-id))) -(define (hive-create-actor-gimmie* hive actor-class id-cookie . init) +(define (bootstrap-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* +Uses bootstrap-actor* arguments." + (let ((actor-id (apply bootstrap-actor* hive actor-class id-cookie init))) (hive-resolve-local-actor hive actor-id)))