From 669104c2e693d4d09ea55be845b2b9cacf7951e0 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 13 Jan 2008 10:02:02 -1000 Subject: [PATCH] fix ordering --- core/assocs/assocs.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor index 4dc3702c18..799a6eb367 100644 --- a/core/assocs/assocs.factor +++ b/core/assocs/assocs.factor @@ -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