From 805309298575cef550749199374e853091f973b3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 28 Jan 2022 06:23:41 -0400
Subject: Better detection for "exec" optimization.

---
 stdlib/source/program/compositor.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 1b7e161d1..bb7c80765 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -33,7 +33,7 @@
       ["$" lux
        ["[1]/[0]" program {"+" Program}]
        ["[0]" syntax]
-       ["[0]" generation {"+" Buffer Context}]
+       ["[0]" generation]
        ["[0]" directive]
        ["[0]" analysis
         [macro {"+" Expander}]]
@@ -42,7 +42,8 @@
      [meta
       [packager {"+" Packager}]
       [archive {"+" Archive}
-       [descriptor {"+" Module}]]
+       [descriptor {"+" Module}]
+       ["[0]" unit]]
       [io
        ["ioW" archive]]]]
     ... ["[0]" interpreter]
@@ -90,7 +91,7 @@
     (in output)))
 
 (def: (package! fs host_dependencies [packager package] static archive context)
-  (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Static Archive Context (Async (Try Any)))
+  (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Static Archive unit.ID (Async (Try Any)))
   (case (packager host_dependencies archive context)
     {try.#Success content}
     (case content
-- 
cgit v1.2.3