Implement properly cherow paths.

metacall · Jan 21, 2020 · ea11fb1 · ea11fb1
1 parent 6b520b6
commit ea11fb1
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/source/metacall.scm b/source/metacall.scm
@@ -355,11 +355,9 @@ a focus on simplicity and productivity.")
                 (setenv "LDFLAGS" (string-append "-Wl,-rpath=" out "/lib"))
                 #t)))
           (add-after 'build 'build-node-loader-bootstrap-cherow
-            (lambda* (#:key outputs inputs #:allow-other-keys)
-              (let* ((output (string-append (assoc-ref outputs "out") "/node_modules/cherow"))
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let* ((output (string-append (getcwd) "/node_modules/cherow"))
                       (cherow (string-append (assoc-ref inputs "cherow") "/lib/node_modules/cherow/dist/commonjs/cherow.min.js")))
-                (format #t "Cherow Path: ~a\n" cherow)
-                (format #t "Output Path: ~a\n" output)
                 (mkdir-p output)
                 (copy-file cherow (string-append output "/index.js")))
               #t)))