From 86cd1814e828ea27b9f2423eb21631fe03be8114 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 4 Nov 2020 21:46:56 -0600
Subject: [PATCH] time: rename set-time to set-system-time. Add calendar words.

---
 basis/calendar/calendar.factor    | 5 +++++
 extra/time/time.factor            | 2 +-
 extra/time/unix/unix.factor       | 2 +-
 extra/time/windows/windows.factor | 2 +-
 extra/tools/cal/cal.factor        | 5 ++---
 5 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index a9d6ff2979..ce5b7e6ee3 100644
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -154,6 +154,11 @@ M: timestamp easter
 : bienniums ( x -- duration ) instant swap 2 * >>year ;
 : trienniums ( x -- duration ) instant swap 3 * >>year ;
 : quadrenniums ( x -- duration ) instant swap 4 * >>year ;
+: quinquenniums ( x -- duration ) instant swap 5 * >>year ;
+: sexenniums ( x -- duration ) instant swap 6 * >>year ;
+: septenniums ( x -- duration ) instant swap 7 * >>year ;
+: octenniums ( x -- duration ) instant swap 8 * >>year ;
+: novenniums ( x -- duration ) instant swap 9 * >>year ;
 : lustrums ( x -- duration ) instant swap 5 * >>year ;
 : decades ( x -- duration ) instant swap 10 * >>year ;
 : indictions ( x -- duration ) instant swap 15 * >>year ;
diff --git a/extra/time/time.factor b/extra/time/time.factor
index fb837d3998..15750a2dcd 100644
--- a/extra/time/time.factor
+++ b/extra/time/time.factor
@@ -3,7 +3,7 @@
 USING: combinators kernel system vocabs ;
 IN: time
 
-HOOK: set-time os ( timestamp -- )
+HOOK: set-system-time os ( timestamp -- )
 HOOK: adjust-time-monotonic os ( timestamp -- seconds )
 
 {
diff --git a/extra/time/unix/unix.factor b/extra/time/unix/unix.factor
index 6201033663..19129b360b 100644
--- a/extra/time/unix/unix.factor
+++ b/extra/time/unix/unix.factor
@@ -7,7 +7,7 @@ IN: time.unix
 : timestamp>timezone ( timestamp -- timezone )
     gmt-offset>> duration>minutes 1 \ timezone <struct-boa> ; inline
 
-M: unix set-time
+M: unix set-system-time
     [ unix-1970 time- duration>microseconds >integer make-timeval ]
     [ timestamp>timezone ] bi
     settimeofday io-error ;
diff --git a/extra/time/windows/windows.factor b/extra/time/windows/windows.factor
index 95fc9706e1..efebecbd97 100644
--- a/extra/time/windows/windows.factor
+++ b/extra/time/windows/windows.factor
@@ -4,6 +4,6 @@ USING: calendar.windows system time windows.errors
 windows.kernel32 kernel classes.struct calendar ;
 IN: time.windows
 
-M: windows set-time
+M: windows set-system-time
     >gmt
     timestamp>SYSTEMTIME SetSystemTime win32-error=0/f ;
diff --git a/extra/tools/cal/cal.factor b/extra/tools/cal/cal.factor
index 72619e1636..5554aa866a 100644
--- a/extra/tools/cal/cal.factor
+++ b/extra/tools/cal/cal.factor
@@ -2,14 +2,13 @@
 ! See http://factorcode.org/license.txt for BSD license
 USING: accessors calendar calendar.english combinators
 command-line formatting grouping io kernel math.parser
-math.ranges namespaces sequences sequences.extras strings.tables
-;
+math.ranges namespaces sequences sequences.extras strings.tables ;
 IN: tools.cal
 
 <PRIVATE
 
 : days ( timestamp -- days )
-    beginning-of-month
+    start-of-month
     [ day-of-week "  " <repetition> ]
     [ days-in-month [1,b] [ "%2d" sprintf ] map ] bi append
     42 "  " pad-tail ;
-- 
2.34.1