diff --git a/compiler/compiler-main.stanza b/compiler/compiler-main.stanza index 5da11455..a76ddb59 100644 --- a/compiler/compiler-main.stanza +++ b/compiler/compiler-main.stanza @@ -154,7 +154,6 @@ public defn compile (proj-manager:ProjManager, supported-vm-packages:Tuple, output:False|String, pkg-dir:False|String, - pkg-cache-dir:False|String backend:Backend, optimize?:True|False, debug?:True|False, @@ -188,11 +187,11 @@ public defn compile (proj-manager:ProjManager, flags, debug?, false, - pkg-cache-dir) + pkg-cache-dir(proj-manager)) ;True if pkgs are written out, either to the pkg directory ;or to the cache directory. - val write-out-pkgs? = pkg-dir is String or pkg-cache-dir is String + val write-out-pkgs? = pkg-dir is String or pkg-cache-dir(proj-manager) is String ;Save optimized packages if necessary if write-out-pkgs? and optimize? : diff --git a/compiler/compiler.stanza b/compiler/compiler.stanza index 1f7e1b1e..470e36c8 100644 --- a/compiler/compiler.stanza +++ b/compiler/compiler.stanza @@ -244,7 +244,7 @@ public defn compile (settings:BuildSettings, system:System, verbose?:True|False) setup-system-flags(settings*) val proj-params = ProjParams(compiler-flags(), optimize?(settings*), debug?(settings*), false, disable-cache?(settings*), pkg-cache-dir(settings*)) val proj-manager = ProjManager(proj, proj-params, auxfile) - val comp-result = compile(proj-manager, auxfile, build-inputs!(settings*), vm-packages(settings*), asm?(settings*), pkg-dir(settings*), pkg-cache-dir(settings*) + val comp-result = compile(proj-manager, auxfile, build-inputs!(settings*), vm-packages(settings*), asm?(settings*), pkg-dir(settings*), backend(platform(settings*) as Symbol), optimize?(settings*), debug?(settings*), verbose?, macro-plugins(settings*), inputs(settings) is BuildTarget) save(auxfile) diff --git a/compiler/repl.stanza b/compiler/repl.stanza index c1ae8c1f..d47a6604 100644 --- a/compiler/repl.stanza +++ b/compiler/repl.stanza @@ -478,15 +478,13 @@ public defn REPL (macro-plugins:Tuple, within log-time(REPL-LOWERING-AND-COMPILATION) : ;Create the PkgSaver to cache pkg files when appropriate. - val cache-dir = match(pkg-cache-dir:String) : pkg-cache-dir - else : /pkg-cache-dir(proj-manager) val pkgsaver = PkgSaver(auxfile, pkgstamps(result), false, compiler-flags, false, true, - cache-dir) + /pkg-cache-dir(proj-manager)) ;Compile the EPackages into VMPackages. val vmpackages = for p in packages(result) map : @@ -507,7 +505,7 @@ public defn REPL (macro-plugins:Tuple, vmp(p) ;Save the auxiliary file if caching is enabled. - save(auxfile) when cache-dir is String + save(auxfile) when /pkg-cache-dir(proj-manager) is String ;Return the compiled VMPackages. vmpackages