Merge pull request #122 from philburk/timeadv

time: reduce time-advance
philburk · Nov 5, 2019 · e60fdef · e60fdef
2 parents 39e5c10 + 26c5ab7
commit e60fdef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/hmsl/fth/time.fth b/hmsl/fth/time.fth
@@ -136,7 +136,7 @@ stack.header vtime-stack
     'c ahead.time@ is time@
     'c rtc.time+!  is time+!
     'c noop is self.clock
-    rtc.rate@ time-advance !
+    rtc.rate@ 6 / time-advance !
     rtc.rate@ 2* 3 / ticks/beat !
     anow
     vtime-data vtime_smax vtime-stack stack.setup