From 6297ec2ae4263c346a9f7cf036055ca8cdb72c78 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>
Date: Fri, 14 Jul 2023 15:22:38 +0100
Subject: inheritance via MOP

*probably*, I'm still not completely certain I've found all the
weirdness
---
 bos-dispatch.sh | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'bos-dispatch.sh')

diff --git a/bos-dispatch.sh b/bos-dispatch.sh
index cb883d8..afefb5e 100644
--- a/bos-dispatch.sh
+++ b/bos-dispatch.sh
@@ -6,10 +6,9 @@ function bos-dispatch/invoke() {
     local self_id="$1";shift
     local method="$1";shift
 
-    local self
-    bos-object-id/pack-self-into "$class" "$self_id" self
-
     if declare -F "$class/$method" >/dev/null; then
+        local self
+        bos-object-id/pack-self-into "$class" "$self_id" self
         "$class/$method" "$@"
         return $?
     fi
@@ -19,4 +18,5 @@ function bos-dispatch/invoke() {
     local -n metaclass_object="$metaclass_ref"
 
     $metaclass_object invoke "$class" "$self_id" "$method" "$@"
+    return $?
 }
-- 
cgit v1.2.3