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

Fix indentation

db4
Slava Pestov 2008-01-27 23:30:24 -06:00
parent dccab9116f
commit 5031cca224
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/assocs/lib/lib.factor
View File

@ -9,14 +9,10 @@ IN: assocs.lib
: ref-at ( table key -- value ) swap at ; : ref-at ( table key -- value ) swap at ;
! set-at with alternative stack effects
: put-at* ( table key value -- ) swap rot set-at ; : put-at* ( table key value -- ) swap rot set-at ;
: put-at ( table key value -- table ) swap pick set-at ; : put-at ( table key value -- table ) swap pick set-at ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: set-assoc-stack ( value key seq -- ) : set-assoc-stack ( value key seq -- )
dupd [ key? ] with find-last nip set-at ; dupd [ key? ] with find-last nip set-at ;