diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 383da2802c..2c7f61cd56 100644
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -37,4 +37,5 @@ IN: assocs.extras
 
 : sum-values ( assoc -- n ) 0 [ + ] reduce-values ; inline
 
-
+: if-assoc-empty ( ..a assoc quot1: ( ..a -- ..b ) quot2: ( ..a assoc -- ..b ) -- ..b )
+    [ dup assoc-empty? ] [ [ drop ] prepose ] [ ] tri* if ; inline