Remove all accessors

[mudsync.git] / mudsync / player.scm

diff --git a/mudsync/player.scm b/mudsync/player.scm
index 00b28edde4cbeab67239e2266dd462d06469c9d6..3fb0136d0a59b47db234cbafe5bab7bb65a3105e 100644 (file)
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -50,13 +50,11 @@
 
 (define-class <player> (<gameobj>)
   (username #:init-keyword #:username
-            #:accessor player-username)
-  ;; Connection id
-  (client #:accessor player-client)
+            #:getter player-username)
 
   (self-commands
    #:init-value '()
-   #:accessor player-self-commands)
+   #:getter player-self-commands)
 
   (message-handler
    #:init-value