projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Remove define-simple-actor, add define-actor.
[8sync.git]
/
8sync
/
actors.scm
diff --git
a/8sync/actors.scm
b/8sync/actors.scm
index 8e1b504b9378e3f5ff5ab4e239018459cb2ced3f..1d8e6023aa3b19bcb8350e4ee35d759cc3f59021 100644
(file)
--- a/
8sync/actors.scm
+++ b/
8sync/actors.scm
@@
-51,7
+51,7
@@
build-actions
build-actions
- define-
simple-
actor
+ define-actor
<hive>
make-hive
<hive>
make-hive
@@
-395,10
+395,13
@@
to come after class definition."
;;; Actor utilities
;;; ===============
;;; Actor utilities
;;; ===============
-(define-syntax-rule (define-simple-actor class action ...)
- (define-class class (<actor>)
+(define-syntax-rule (define-actor class inherits
+ (action ...)
+ slots ...)
+ (define-class class inherits
(actions #:init-value (build-actions action ...)
(actions #:init-value (build-actions action ...)
- #:allocation #:each-subclass)))
+ #:allocation #:each-subclass)
+ slots ...))
\f
;;; The Hive
\f
;;; The Hive