From c3c61e74d7bd18147a1f1a5f80b02b3536f7f667 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 25 Dec 2019 11:28:58 -0500
Subject: [PATCH] assocs: Add set-of

merry christmas lol
---
 core/assocs/assocs.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 77755df881..dae8e4ac81 100644
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -120,6 +120,9 @@ PRIVATE>
 : of ( assoc key -- value/f )
     swap at ; inline
 
+: set-of ( assoc val key -- assoc )
+    pick set-at ; inline
+
 M: assoc assoc-clone-like ( assoc exemplar -- newassoc )
     [ dup assoc-size ] dip new-assoc
     [ [ set-at ] with-assoc assoc-each ] keep ; inline