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

assocs.lib renaming and typo fix

db4
Daniel Ehrenberg 2008-01-17 23:51:03 -06:00
parent 0455603cbd
commit 6b8b2dff01
1 changed files with 5 additions and 5 deletions
extra/assocs/lib

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

@ -7,18 +7,18 @@ IN: assocs.lib
: >set ( seq -- hash ) : >set ( seq -- hash )
[ dup ] H{ } map>assoc ; [ dup ] H{ } map>assoc ;
: ref-hash ( table key -- value ) swap at ; : ref-at ( table key -- value ) swap at ;
! set-hash with alternative stack effects ! set-hash with alternative stack effects
: put-hash* ( table key value -- ) swap rot set-at ; : put-at* ( table key value -- ) swap rot set-at ;
: put-hash ( table key value -- table ) swap pick set-at ; : put-at ( table key value -- table ) swap pick set-at ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: set-hash-stack ( value key seq -- ) : set-assoc-stack ( value key seq -- )
dupd [ key? ] when find-last nip set-at ; dupd [ key? ] with find-last nip set-at ;
: at-default ( key assoc -- value/key ) : at-default ( key assoc -- value/key )
dupd at [ nip ] when* ; dupd at [ nip ] when* ;