promises: simplify LAXY:.

diff --git a/basis/promises/promises.factor b/basis/promises/promises.factor
index b19968adee13ec0c88262ce0f5200a559144201e..933beed336a977dbd39a939e5c27f1467df59fbc 100644 (file)
--- a/basis/promises/promises.factor
+++ b/basis/promises/promises.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2004, 2006 Chris Double, Matthew Willis.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays effects fry generalizations kernel math
-namespaces parser effects.parser sequences words ;
+USING: accessors effects.parser fry generalizations kernel
+sequences words ;
 IN: promises
 
 TUPLE: promise quot forced? value ;
@@ -12,11 +12,10 @@ TUPLE: promise quot forced? value ;
     dup forced?>> [
         dup quot>> call( -- value ) >>value
         t >>forced?
-    ] unless
-    value>> ;
+    ] unless value>> ;
 
 : make-lazy-quot ( quot effect -- quot )
     in>> length '[ _ _ ncurry <promise> ] ;
 
 SYNTAX: LAZY:
-    (:) [ make-lazy-quot ] [ 2nip ] 3bi define-declared ;
+    (:) [ make-lazy-quot ] keep define-declared ;