std/build-script: use with-cons-load-path during deps generation

adam-7 · Nov 14, 2019 · 8b147fd · 8b147fd
1 parent 1030644
commit 8b147fd
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/std/build-script.ss b/src/std/build-script.ss
@@ -46,9 +46,11 @@
                             (["spec"]
                              (pretty-print build-spec))
                             (["deps"]
-                             (cons-load-path @srcdir)
-                             (let (build-deps (make-depgraph/spec @build-spec))
-                               (call-with-output-file "build-deps" (cut write build-deps <>))))
+                             (with-cons-load-path
+                              (lambda ()
+                                (let (build-deps (make-depgraph/spec @build-spec))
+                                  (call-with-output-file "build-deps" (cut write build-deps <>))))
+                              @srcdir))
                             (["compile"]
                              (let (depgraph (call-with-input-file "build-deps" read))
                                (make srcdir: @srcdir