From e524cf9b63e7cc3822c6ac7243239e1f49621b0c Mon Sep 17 00:00:00 2001 From: wolandscat Date: Thu, 17 Oct 2024 10:23:28 -0600 Subject: [PATCH] Ensure no writes to wrong archetypes! --- apps/adlc/src/main/terminology_bindings_injector.e | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/apps/adlc/src/main/terminology_bindings_injector.e b/apps/adlc/src/main/terminology_bindings_injector.e index b4b2021fb..72c20c25c 100644 --- a/apps/adlc/src/main/terminology_bindings_injector.e +++ b/apps/adlc/src/main/terminology_bindings_injector.e @@ -69,9 +69,9 @@ feature -- Commands -- save last archetype changes save_changes (ara) + diff_arch := Void if attached {ARCH_LIB_AUTHORED_ARCHETYPE} current_library.archetype_matching_ref (arch_ref) as arch_desc then ara := arch_desc - if attached {AUTHORED_ARCHETYPE} ara.differential_archetype as da then diff_arch := da else