calendar: do not call day-of-week twice in weekday?

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index 8b326eb26eaadbfc597c390c1492431a27956131..1682001e6b6b3a7ae2bbe913a480ec13c603153f 100644 (file)
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -738,7 +738,7 @@ ALIAS: last-day-of-week saturday
 : december? ( timestamp -- ? ) month>> 12 = ;
 
 : weekend? ( timestamp -- ? ) day-of-week { 0 6 } member? ;
-: weekday? ( timestamp -- ? ) day-of-week weekend? not ;
+: weekday? ( timestamp -- ? ) weekend? not ;
 
 : same-or-next-business-day ( timestamp -- timestamp' )
     dup day-of-week {