path fix

1 files changed, 3 insertions, 1 deletions

diff --git a/soru.lisp b/soru.lisp
index 2e5f2b4..4b02b32 100644
--- a/soru.lisp
+++ b/soru.lisp
@@ -3,7 +3,9 @@
 (setf *random-state* (make-random-state t))
 
 (defparameter *kelimeler* nil)
-(defparameter *kelimeler-dosyası* "/home/riton/projects/japonca/kelimeler.txt")
+(defparameter *kelimeler-dosyası*
+  (format nil "/home/~a/projects/japonca/kelime/kelimeler.txt"
+          (uiop:hostname)))
 
 (defun kelimeleri-yükle (&optional (dosya *kelimeler-dosyası*))
   (setf *kelimeler*