((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)
(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))
#: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)
(((? (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)
(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)))