assocs.extras: Move some often-used words to core

[factor.git] / extra / calendar / holidays / holidays.factor

diff --git a/extra/calendar/holidays/holidays.factor b/extra/calendar/holidays/holidays.factor
index bb2ff52302109c4bee9d9deb259934335eba34aa..6511082c0b8019b1f71656e7722e2071e7df40e7 100644 (file)
--- a/extra/calendar/holidays/holidays.factor
+++ b/extra/calendar/holidays/holidays.factor
@@ -45,7 +45,7 @@ M: all holidays drop (holidays) ;
     [
         [ clone ] dip
         [ drop ] [ holiday-assoc ] 2bi swap
-        '[ drop _ same-day? ] assoc-filter values
+        '[ _ same-day? ] filter-keys values
     ] keep '[ _ swap "holiday" word-prop at ] map ;
 
 HOLIDAY: armistice-day november 11 >>day ;