From a7a065e3159261e555948a482e1dea1ea0799446 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 24 Mar 2013 10:10:39 -0700 Subject: [PATCH] promises: Rename --- basis/promises/promises.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/promises/promises.factor b/basis/promises/promises.factor index 10d028e012..6696ef809e 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 quot forced? value ; +TUPLE: promise-state quot forced? value ; -: promise ( quot -- promise ) f f \ promise boa ; +: promise ( quot -- promise ) f f \ promise-state boa ; : force ( promise -- value ) dup forced?>> [