windows includes angepasst

This commit is contained in:
Arlett Grygar
2024-12-30 23:47:13 +01:00
parent 15c27c271f
commit 7fa6c4fe89
2 changed files with 8 additions and 2 deletions

View File

@@ -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"))))