From e1ad8d47213e45a9adbd992792d583f9fe3c5b72 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 12 Apr 2019 06:56:07 -0600 Subject: [PATCH] cs: fix path on discovered Chez Scheme library name Corrects 8a368cac99. --- racket/src/worksp/csbuild.rkt | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/racket/src/worksp/csbuild.rkt b/racket/src/worksp/csbuild.rkt index 8bb2276a79..6f2596d812 100644 --- a/racket/src/worksp/csbuild.rkt +++ b/racket/src/worksp/csbuild.rkt @@ -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)