From 930fe86e37d25103e882e41f38b47477d06d66a3 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 5 Dec 2023 12:23:56 -0800
Subject: [PATCH] models: make a model-value generic.

---
 basis/models/models.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/basis/models/models.factor b/basis/models/models.factor
index a9de70bdcb..ed6e395f29 100644
--- a/basis/models/models.factor
+++ b/basis/models/models.factor
@@ -53,8 +53,12 @@ DEFER: remove-connection
         drop
     ] if ;
 
+GENERIC: model-value ( model -- value )
+
+M: model model-value value>> ;
+
 : compute-model ( model -- value )
-    [ activate-model ] [ deactivate-model ] [ value>> ] tri ;
+    [ activate-model ] [ deactivate-model ] [ model-value ] tri ;
 
 GENERIC: model-changed ( model observer -- )
 M: object model-changed 2drop ;
-- 
2.34.1