cs: fix path on discovered Chez Scheme library name

Corrects 8a368cac99.
This commit is contained in:
Matthew Flatt 2019-04-12 06:56:07 -06:00
parent 615677299e
commit e1ad8d4721

View File

@ -175,16 +175,13 @@
;; The library name changes with the version, so extract it from the
;; Chez Scheme makefile
(define scheme-lib
(let ()
(define name
(call-with-input-file*
(build-path scheme-dir "c" (format "Makefile.~a" machine))
(lambda (i)
(for/or ([l (in-lines i)])
(define m (regexp-match #rx"MTKernelLib *= *.*(csv.*mt.lib)" l))
(and m
(cadr m))))))
(build-path scheme-dir machine "boot" machine name)))
(call-with-input-file*
(build-path scheme-dir "c" (format "Makefile.~a" machine))
(lambda (i)
(for/or ([l (in-lines i)])
(define m (regexp-match #rx"MTKernelLib *= *.*(csv.*mt.lib)" l))
(and m
(cadr m))))))
(define rel2-scheme-dir (build-path 'up
(if (relative-path? scheme-dir)