fix ordering

db4
Doug Coleman 2008-01-13 10:02:02 -10:00
parent 376644794c
commit 669104c2e6
1 changed files with 3 additions and 3 deletions

View File

@ -52,12 +52,12 @@ M: assoc assoc-find
: assoc-subset ( assoc quot -- subassoc )
over >r assoc-pusher >r assoc-each r> r> assoc-like ; inline
: assoc-all? ( assoc quot -- ? )
[ not ] compose assoc-contains? not ; inline
: assoc-contains? ( assoc quot -- ? )
assoc-find 2nip ; inline
: assoc-all? ( assoc quot -- ? )
[ not ] compose assoc-contains? not ; inline
: at ( key assoc -- value/f )
at* drop ; inline