From ce1a7a131f7c4df8eae5c019eba2893b56f04d46 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 24 Jun 2021 03:42:57 -0400
Subject: Added a macro for type-casting JVM objects.

---
 stdlib/source/program/aedifex/command/test.lux | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'stdlib/source/program/aedifex/command/test.lux')

diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux
index c3b517437..e717b7cd6 100644
--- a/stdlib/source/program/aedifex/command/test.lux
+++ b/stdlib/source/program/aedifex/command/test.lux
@@ -21,6 +21,7 @@
   ["." // #_
    ["#." build]
    ["/#" // #_
+    ["#" profile]
     ["#." action]
     ["#." command (#+ Command)]
     ["#." runtime]
@@ -37,7 +38,8 @@
     [environment (\ program environment [])
      working_directory (\ program directory [])]
     (do ///action.monad
-      [[compiler program] (//build.do! console program fs shell resolution profile)
+      [[compiler program] (//build.do! console program fs shell resolution
+                                       (set@ #///.program (get@ #///.test profile) profile))
        _ (console.write_line ..start console)
        #let [[compiler_command compiler_parameters] (case compiler
                                                       (#//build.JVM artifact) (///runtime.java program)
@@ -47,6 +49,8 @@
                        working_directory
                        compiler_command
                        compiler_parameters])
+       _ (//build.log_output! console process)
+       _ (//build.log_error! console process)
        exit (!.use (\ process await) [])
        _ (console.write_line (if (i.= shell.normal exit)
                                ..success
-- 
cgit v1.2.3