assocs.extras: Add a word set-once-at that throws if the key is already set.

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index cf63ee847259805f023b91e9bf7be6e3cc02c1b0..80e2521d4f39d2d579d206197d57001404ec5945 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -44,3 +44,11 @@ GENERIC: delete-value-at ( value assoc -- )
 
 M: assoc delete-value-at
     [ value-at* ] keep swap [ delete-at ] [ 2drop ] if ;
+
+ERROR: key-exists value key assoc ;
+: set-once-at ( value key assoc -- )
+    2dup ?at [
+        key-exists
+    ] [
+        drop set-at
+    ] if ;
\ No newline at end of file