projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
guix: Update instructions with guix shell.
[8sync.git]
/
8sync
/
debug.scm
diff --git
a/8sync/debug.scm
b/8sync/debug.scm
index a05f131b06e3d37b1c623981bf9415b20e264c8a..c2a561294b0988bb3359f776e74dbaf71c0c226f 100644
(file)
--- a/
8sync/debug.scm
+++ b/
8sync/debug.scm
@@
-1,5
+1,5
@@
;;; 8sync --- Asynchronous programming for Guile
;;; 8sync --- Asynchronous programming for Guile
-;;; Copyright
(C) 2016
Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright
© 2016, 2017
Christopher Allan Webber <cwebber@dustycloud.org>
;;;
;;; This file is part of 8sync.
;;;
;;;
;;; This file is part of 8sync.
;;;
@@
-22,8
+22,8
@@
#:export (hive-resolve-local-actor
actor-hive
#:export (hive-resolve-local-actor
actor-hive
-
hive-create
-actor-gimmie
-
hive-create
-actor-gimmie*))
+
bootstrap
-actor-gimmie
+
bootstrap
-actor-gimmie*))
\f
;;; Expose not normally exposed methods
\f
;;; Expose not normally exposed methods
@@
-42,16
+42,16
@@
;;; Some utilities
;;; =============
;;; 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.
"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)))
(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.
"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)))
hive actor-class id-cookie init)))
(hive-resolve-local-actor hive actor-id)))