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

cs windows: add dependencies on petite.so and scheme.so

Browse Source 
Originally, the dependency was expressed via "compile-file.ss", but
now the dependency can be more direct.
This commit is contained in:
Matthew Flatt 2020-09-28 19:10:10 -06:00
parent 075048409b
commit c4df79b38d
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
racket/src/worksp/csbuild.rkt
View File

@ -129,10 +129,13 @@
;; ---------------------------------------- ;; ----------------------------------------
(define scheme (build-path scheme-dir machine "bin" machine "scheme.exe")) (define scheme (build-path scheme-dir machine "bin" machine "scheme.exe"))
(define rel-scheme (build-path 'up "worksp" (define scheme-boot (build-path scheme-dir machine "boot" machine))
(if (relative-path? scheme) (define (path->relative p)
scheme (if (relative-path? p)
(find-relative-path (current-directory) scheme)))) p
(find-relative-path (current-directory) p)))
(define rel-scheme (build-path 'up "worksp" (path->relative scheme)))
(define rel-scheme-boot (build-path 'up "worksp" (path->relative scheme-boot)))
(parameterize ([current-directory (build-path 'up "cs")]) (parameterize ([current-directory (build-path 'up "cs")])
(define convert.d (build-path build-dir "compiled" "convert.d")) (define convert.d (build-path build-dir "compiled" "convert.d"))
@ -143,7 +146,8 @@
(format "SCHEME=~a" rel-scheme) (format "SCHEME=~a" rel-scheme)
(format "BUILDDIR=../build/") ; need forward slashes (format "BUILDDIR=../build/") ; need forward slashes
(format "CONVERT_RACKET=~a" chain-racket) (format "CONVERT_RACKET=~a" chain-racket)
(format "BOOTSTRAPPED=~a" "done"))) (format "BOOTSTRAPPED=~a" "done")
(format "EXTRA_COMPILE_DEPS=~a/petite.boot ~a/scheme.boot" rel-scheme-boot rel-scheme-boot)))
;; ---------------------------------------- ;; ----------------------------------------