From 5ad46995c77d02a8db0d5de2926308715ba22241 Mon Sep 17 00:00:00 2001
From: Oliver Reiche <oliver.reiche@huawei.com>
Date: Wed, 27 Sep 2023 10:22:34 +0200
Subject: foreign: Fix missing path union

---
 CC/foreign/cmake/EXPRESSIONS | 10 +++++++++-
 CC/foreign/make/EXPRESSIONS  | 10 +++++++++-
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/CC/foreign/cmake/EXPRESSIONS b/CC/foreign/cmake/EXPRESSIONS
index 5397e9f..a36c706 100644
--- a/CC/foreign/cmake/EXPRESSIONS
+++ b/CC/foreign/cmake/EXPRESSIONS
@@ -188,7 +188,15 @@
           , "$1":
             { "type": "let*"
             , "bindings":
-              [["list", {"type": "CALL_EXPRESSION", "name": "default-PATH"}]]
+              [ [ "list"
+                , { "type": "++"
+                  , "$1":
+                    [ {"type": "CALL_EXPRESSION", "name": "foreign-PATH"}
+                    , {"type": "CALL_EXPRESSION", "name": "default-PATH"}
+                    ]
+                  }
+                ]
+              ]
             , "body": {"type": "CALL_EXPRESSION", "name": "nub_left"}
             }
           }
diff --git a/CC/foreign/make/EXPRESSIONS b/CC/foreign/make/EXPRESSIONS
index ceb5913..d31a2bb 100644
--- a/CC/foreign/make/EXPRESSIONS
+++ b/CC/foreign/make/EXPRESSIONS
@@ -165,7 +165,15 @@
           , "$1":
             { "type": "let*"
             , "bindings":
-              [["list", {"type": "CALL_EXPRESSION", "name": "default-PATH"}]]
+              [ [ "list"
+                , { "type": "++"
+                  , "$1":
+                    [ {"type": "CALL_EXPRESSION", "name": "foreign-PATH"}
+                    , {"type": "CALL_EXPRESSION", "name": "default-PATH"}
+                    ]
+                  }
+                ]
+              ]
             , "body": {"type": "CALL_EXPRESSION", "name": "nub_left"}
             }
           }
-- 
cgit v1.2.3