From 7273ea3e195fa79068f9a9232746ccd4af9a899c Mon Sep 17 00:00:00 2001
From: Michele Nuzzi <michele.nuzzi.2014@gmail.com>
Date: Sat, 18 May 2024 23:29:28 +0200
Subject: [PATCH] fix compilation in IR

---
 .../onchain/src/IR/toUPLC/_internal/_modifyChildFromTo.ts     | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/onchain/src/IR/toUPLC/_internal/_modifyChildFromTo.ts b/packages/onchain/src/IR/toUPLC/_internal/_modifyChildFromTo.ts
index 12accc1a..c54e0698 100644
--- a/packages/onchain/src/IR/toUPLC/_internal/_modifyChildFromTo.ts
+++ b/packages/onchain/src/IR/toUPLC/_internal/_modifyChildFromTo.ts
@@ -19,7 +19,9 @@ export function _modifyChildFromTo( parent: IRParentTerm | undefined, currentChi
 {
     if( parent === undefined )
     {
-        throw new Error(
+        if( isIRTerm( currentChild ) )
+            parent = currentChild.parent as IRParentTerm;
+        else throw new Error(
             "'_modifyChildFromTo' received an undefined parent"
         );
     }