windows includes angepasst
This commit is contained in:
@@ -1,7 +1,13 @@
|
||||
#(define noStandaloneOutput (if (defined? 'noStandaloneOutput) noStandaloneOutput #f))
|
||||
|
||||
#(define windows? (string-prefix-ci? "windows" (utsname:sysname (uname))))
|
||||
|
||||
#(if (defined? 'LAYOUT) #f
|
||||
(let ((scmdir (string-append (dirname (current-filename)) file-name-separator-string "scm" file-name-separator-string)))
|
||||
(let ((scmdir
|
||||
(if windows?
|
||||
(string-append "scm" file-name-separator-string)
|
||||
(string-append (dirname (current-filename)) file-name-separator-string "scm" file-name-separator-string)
|
||||
)))
|
||||
(load (string-append scmdir "json_parser.scm"))
|
||||
(load (string-append scmdir "resolve_inherits.scm"))
|
||||
(load (string-append scmdir "yaml_parser.scm"))))
|
||||
|
||||
Reference in New Issue
Block a user