summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
25fb5b4)
* 8sync/systems/actors/debug.scm (expose): New macro for easy exposing
of things not normally exported from the actors module.
(hive-resolve-local-actor): Switch to use "expose".
(actor-hive): Expose/export.
(hive-create-actor-gimmie*): Switch to be a procedure rather than a macro.
#:use-module (oop goops)
#:use-module (8sync systems actors)
#:export (hive-resolve-local-actor
#:use-module (oop goops)
#:use-module (8sync systems actors)
#:export (hive-resolve-local-actor
- hive-create-actor-gimmie))
-(define hive-resolve-local-actor
- (@@ (8sync systems actors) hive-resolve-local-actor))
+ 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 . args)
"Create an actor on the hive, and give us that actor.
(define (hive-create-actor-gimmie . args)
"Create an actor on the hive, and give us that actor.
(let ((actor-id (apply hive-create-actor args)))
(hive-resolve-local-actor hive actor-id)))
(let ((actor-id (apply hive-create-actor args)))
(hive-resolve-local-actor hive actor-id)))
-(define-syntax-rule (hive-create-actor-gimmie* args ...)
+(define (hive-create-actor-gimmie* . args)
"Create an actor on the hive, and give us that actor.
Uses hive-create-actor* arguments."
"Create an actor on the hive, and give us that actor.
Uses hive-create-actor* arguments."
- (let ((actor-id (hive-create-actor* args ...)))
+ (let ((actor-id (apply hive-create-actor* args)))
(hive-resolve-local-actor hive actor-id)))
(hive-resolve-local-actor hive actor-id)))