suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

io: fix (find-system-path 'orig-dir)

Browse Source
This commit is contained in:
Matthew Flatt 2018-11-15 09:36:55 -07:00
parent a6cc19648f
commit 6d1b287467
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/io/demo.rkt
View File

@ -12,7 +12,7 @@
[current-directory host:current-directory] [current-directory host:current-directory]
[path->string host:path->string])) [path->string host:path->string]))
(current-directory (host:path->string (host:current-directory))) (current-directory (find-system-path 'orig-dir))
(set-string->number?! string->number) (set-string->number?! string->number)
(define-syntax-rule (test expect rhs) (define-syntax-rule (test expect rhs)

9
racket/src/io/path/system.rkt
View File

@ -4,7 +4,9 @@
"../host/rktio.rkt" "../host/rktio.rkt"
"../host/error.rkt" "../host/error.rkt"
"../security/main.rkt" "../security/main.rkt"
"path.rkt") "../file/host.rkt"
"path.rkt"
"directory-path.rkt")
(provide find-system-path (provide find-system-path
set-exec-file! set-exec-file!
@ -24,7 +26,7 @@
(string->path "../etc"))] (string->path "../etc"))]
[(collects-dir host-collects-dir) (or collects-dir [(collects-dir host-collects-dir) (or collects-dir
(string->path "../collects"))] (string->path "../collects"))]
[(orig-dir) (string->path (|#%app| current-directory))] [(orig-dir) orig-dir]
[(temp-dir) (rktio-system-path who RKTIO_PATH_TEMP_DIR)] [(temp-dir) (rktio-system-path who RKTIO_PATH_TEMP_DIR)]
[(sys-dir) (rktio-system-path who RKTIO_PATH_SYS_DIR)] [(sys-dir) (rktio-system-path who RKTIO_PATH_SYS_DIR)]
[(pref-dir) (rktio-system-path who RKTIO_PATH_PREF_DIR)] [(pref-dir) (rktio-system-path who RKTIO_PATH_PREF_DIR)]
@ -52,6 +54,9 @@
(define run-file #f) (define run-file #f)
(define (set-run-file! p) (set! run-file p)) (define (set-run-file! p) (set! run-file p))
(define orig-dir (path->directory-path
(host-> (rktio_to_bytes (rktio_get_current_directory rktio)))))
(define collects-dir #f) (define collects-dir #f)
(define (set-collects-dir! p) (set! collects-dir p)) (define (set-collects-dir! p) (set! collects-dir p))