From 974863dd448b9911bd3491076329a411ae9dac00 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 24 Mar 2013 15:33:19 -0700
Subject: [PATCH] promises: rename.

---
 basis/promises/promises.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/promises/promises.factor b/basis/promises/promises.factor
index 6696ef809e..b19968adee 100644
--- a/basis/promises/promises.factor
+++ b/basis/promises/promises.factor
@@ -4,9 +4,9 @@ USING: accessors arrays effects fry generalizations kernel math
 namespaces parser effects.parser sequences words ;
 IN: promises
 
-TUPLE: promise-state quot forced? value ;
+TUPLE: promise quot forced? value ;
 
-: promise ( quot -- promise ) f f \ promise-state boa ;
+: <promise> ( quot -- promise ) f f promise boa ;
 
 : force ( promise -- value )
     dup forced?>> [
@@ -16,7 +16,7 @@ TUPLE: promise-state quot forced? value ;
     value>> ;
 
 : make-lazy-quot ( quot effect -- quot )
-    in>> length '[ _ _ ncurry promise ] ;
+    in>> length '[ _ _ ncurry <promise> ] ;
 
 SYNTAX: LAZY:
     (:) [ make-lazy-quot ] [ 2nip ] 3bi define-declared ;