From 848420a377f0df418a446f25a2e6ce82a7d5dab6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 23 May 2014 13:26:49 -0700
Subject: [PATCH] core-foundation.time: change epoch to constant.

---
 basis/core-foundation/time/time.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/basis/core-foundation/time/time.factor b/basis/core-foundation/time/time.factor
index 37c4ff5d0e..9d22e4752d 100644
--- a/basis/core-foundation/time/time.factor
+++ b/basis/core-foundation/time/time.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: calendar math alien.c-types alien.syntax memoize system ;
+USING: alien.c-types alien.syntax calendar literals math ;
 IN: core-foundation.time
 
 TYPEDEF: double CFTimeInterval
@@ -8,8 +8,10 @@ TYPEDEF: double CFAbsoluteTime
 
 ALIAS: >CFTimeInterval duration>seconds
 
-MEMO: epoch ( -- micros )
-    T{ timestamp { year 2001 } { month 1 } { day 1 } } timestamp>micros ;
+CONSTANT: epoch $[
+    T{ timestamp { year 2001 } { month 1 } { day 1 } }
+    timestamp>micros
+]
 
 : >CFAbsoluteTime ( micros -- time )
     epoch - 1,000,000 /f ; inline