projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update codebase to use 8sync-fibers
[mudsync.git]
/
mudsync
/
game-master.scm
diff --git
a/mudsync/game-master.scm
b/mudsync/game-master.scm
index 7b93a3bf25d40ece239fe4bd6de35b3313779fbc..7b135c14a5676ec939284f8dda3dfbb3a8c999b5 100644
(file)
--- a/
mudsync/game-master.scm
+++ b/
mudsync/game-master.scm
@@
-88,7
+88,7
@@
((symbol class loc args ...)
;; initialize the special object
(let ((special-obj
((symbol class loc args ...)
;; initialize the special object
(let ((special-obj
- (apply create-actor*
gm
class
+ (apply create-actor* class
;; set cookie to be the object's symbol
(symbol->string symbol)
#:gm (actor-id gm)
;; set cookie to be the object's symbol
(symbol->string symbol)
#:gm (actor-id gm)
@@
-121,8
+121,8
@@
(define (gm-setup-network gm)
;; Create a default network manager if none available
(slot-set! gm 'network-manager
(define (gm-setup-network gm)
;; Create a default network manager if none available
(slot-set! gm 'network-manager
- (create-actor*
gm
<network-manager> "netman"
- #:send-input-to (actor-id gm)))
+ (create-actor* <network-manager> "netman"
+
#:send-input-to (actor-id gm)))
;; TODO: Add host and port options
(<-wait (gm-network-manager gm) 'start-listening))
;; TODO: Add host and port options
(<-wait (gm-network-manager gm) 'start-listening))
@@
-150,7
+150,7
@@
#:input data))
(define* (gm-lookup-special actor message #:key symbol)
#:input data))
(define* (gm-lookup-special actor message #:key symbol)
- (
<-reply message (hash-ref (slot-ref actor 'special-dir) symbol)
))
+ (
hash-ref (slot-ref actor 'special-dir) symbol
))
(define* (gm-write-home actor message #:key text)
(define client-id (hash-ref (gm-reverse-client-dir actor)
(define* (gm-write-home actor message #:key text)
(define client-id (hash-ref (gm-reverse-client-dir actor)
@@
-186,7
+186,7
@@
using the gameobj-spec."
(((? (cut eq? <> special-symbol) symbol) class loc args ...)
;; initialize the special object
(let ((special-obj
(((? (cut eq? <> special-symbol) symbol) class loc args ...)
;; initialize the special object
(let ((special-obj
- (apply create-actor*
gm
class
+ (apply create-actor* class
;; set cookie to be the object's symbol
(symbol->string symbol)
#:gm (actor-id gm)
;; set cookie to be the object's symbol
(symbol->string symbol)
#:gm (actor-id gm)
@@
-239,7
+239,7
@@
with an anonymous persona"
(hash-ref (gm-special-dir gm) default-room))
;; create and register the player
(player
(hash-ref (gm-special-dir gm) default-room))
;; create and register the player
(player
- (create-actor*
gm
(@@ (mudsync player) <player>) "player"
+ (create-actor* (@@ (mudsync player) <player>) "player"
#:name guest-name
#:gm (actor-id gm)
#:client client-id)))
#:name guest-name
#:gm (actor-id gm)
#:client client-id)))