diff options
| author | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-16 18:45:22 -0400 |
|---|---|---|
| committer | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-16 18:45:22 -0400 |
| commit | 684f172537d838cb85ade3480600325d50a6c544 (patch) | |
| tree | 9ca6a98c36906d2d99fd69ba5ebb4d6e3ff779ba | |
| parent | ed029f79066c8566e313794a6f66ae4c73614acc (diff) | |
use relative paths when opening files
| -rw-r--r-- | .gitignore | 1 | ||||
| -rw-r--r-- | Hermes/Makefile | 2 | ||||
| -rw-r--r-- | Hermes/server.rkt | 4 |
3 files changed, 4 insertions, 3 deletions
@@ -1,5 +1,6 @@ # ignore temporary files *~ +*.txt # ignore logs and configuration files *.out diff --git a/Hermes/Makefile b/Hermes/Makefile index fdd9a07..c580a71 100644 --- a/Hermes/Makefile +++ b/Hermes/Makefile @@ -1,3 +1,3 @@ # Remove temporary files clean: - rm -rf *~ *.out *.conf + rm -rf *~ *.out *.conf *.txt diff --git a/Hermes/server.rkt b/Hermes/server.rkt index df1cf26..9b1a171 100644 --- a/Hermes/server.rkt +++ b/Hermes/server.rkt @@ -77,8 +77,8 @@ (define messages-s (make-semaphore 1)) ;; control access to messages ; two files to store error messages, and channel conversations -(define error-out (open-output-file "/home/pcuser/Hermes/Hermes/error_server.txt" #:exists 'append)) -(define convs-out (open-output-file "/home/pcuser/Hermes/Hermes/conversations_server.txt" #:exists 'append)) +(define error-out (open-output-file "./error_server.txt" #:exists 'append)) +(define convs-out (open-output-file "./conversations_server.txt" #:exists 'append)) (define error-out-s (make-semaphore 1)) (define convs-out-s (make-semaphore 1)) ; TODO finish logging all error related messages to |