biassocs: rename once-at to set-at-once.

diff --git a/basis/biassocs/biassocs.factor b/basis/biassocs/biassocs.factor
index 590449d77ca00fa14c293b737aad1520278e9190..17b752ff9c8b3fff0308f03f0fef0c90723ffed8 100644 (file)
--- a/basis/biassocs/biassocs.factor
+++ b/basis/biassocs/biassocs.factor
@@ -17,11 +17,11 @@ M: biassoc at* from>> at* ; inline
 
 M: biassoc value-at* to>> at* ; inline
 
-: once-at ( value key assoc -- )
+: set-at-once ( value key assoc -- )
     2dup key? [ 3drop ] [ set-at ] if ;
 
 M: biassoc set-at
-    [ from>> set-at ] [ swapd to>> once-at ] 3bi ;
+    [ from>> set-at ] [ swapd to>> set-at-once ] 3bi ;
 
 ERROR: no-biassoc-deletion ;