gxc: create output directory for binary executables (#794)

mighty-gerbils · Sep 5, 2023 · 856d6c6 · 856d6c6
1 parent d70df51
commit 856d6c6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/gerbil/compiler/driver.ss b/src/gerbil/compiler/driver.ss
@@ -249,6 +249,7 @@ namespace: gxc
            (builtin-modules
             (map (lambda (mod) (symbol->string (expander-context-id mod)))
                  (cons ctx deps))))
+      (create-directory* (path-directory output-bin))
       (with-output-to-scheme-file output-scm
         (cut generate-stub builtin-modules))
       (when (current-compile-invoke-gsc)
@@ -405,6 +406,7 @@ namespace: gxc
              ... "-exe" "-o" output-bin
              (gsc-debug-options) ... gsc-opts ... gsc-gx-macros ...
              output-scm]))
+      (create-directory* (path-directory output-bin))
       (with-output-to-scheme-file output-scm
         (cut generate-stub [gx-gambc ... deps ... bin-scm]))
       (when (current-compile-invoke-gsc)