[scheme] Allow to create a new null value which shares a pool with the current value without directly attaching it as child

1 files changed, 5 insertions, 1 deletions

diff --git a/library/cpp/scheme/scheme.cpp b/library/cpp/scheme/scheme.cpp
index e6b59e8346..5ef2e80c8c 100644
--- a/library/cpp/scheme/scheme.cpp
+++ b/library/cpp/scheme/scheme.cpp
@@ -68,6 +68,10 @@ namespace NSc {
         return TValue().CopyFrom(*this);
     }
 
+    TValue TValue::CreateNew() const {
+        return Y_LIKELY(TheCore) ? TValue(TheCore->Pool) : TValue();
+    }
+
     double TValue::ForceNumber(double deflt) const {
         const TScCore& core = Core();
         if (core.IsNumber()) {
@@ -231,7 +235,7 @@ namespace NSc {
     }
 
     bool TValue::SamePool(const TValue& a, const TValue& b) {
-        return Same(a, b) || a.TheCore->Pool.Get() == b.TheCore->Pool.Get();
+        return Same(a, b) || (a.TheCore && b.TheCore && a.TheCore->Pool.Get() == b.TheCore->Pool.Get());
     }
 
     bool TValue::Equal(const TValue& a, const TValue& b) {