steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

factor-shell
John Benediktsson 2018-01-22 12:02:04 -08:00
parent 87d595250e
commit b43c652f68
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/biassocs/biassocs.factor
View File

@ -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 ;