20 lines
489 B
Factor
20 lines
489 B
Factor
|
|
USING: kernel sequences assocs ;
|
|
|
|
IN: hashtables.lib
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
: ref-hash ( table key -- value ) swap at ;
|
|
|
|
! set-hash with alternative stack effects
|
|
|
|
: put-hash* ( table key value -- ) swap rot set-at ;
|
|
|
|
: put-hash ( table key value -- table ) swap pick set-at ;
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
: set-hash-stack ( value key seq -- )
|
|
dupd [ key? ] curry* find-last nip set-at ;
|