From 3bff775503d58aa599a3e54b1c28ff11b3f1c912 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 6 Jan 2008 23:36:34 -0400
Subject: [PATCH] Update memoize and promises

---
 extra/memoize/memoize-docs.factor   | 3 ++-
 extra/memoize/memoize.factor        | 4 ++--
 extra/promises/promises-docs.factor | 3 ++-
 extra/promises/promises.factor      | 2 +-
 4 files changed, 7 insertions(+), 5 deletions(-)
 mode change 100644 => 100755 extra/memoize/memoize-docs.factor
 mode change 100644 => 100755 extra/memoize/memoize.factor
 mode change 100644 => 100755 extra/promises/promises-docs.factor
 mode change 100644 => 100755 extra/promises/promises.factor

diff --git a/extra/memoize/memoize-docs.factor b/extra/memoize/memoize-docs.factor
old mode 100644
new mode 100755
index 39aca4ccad..a6f78970c8
--- a/extra/memoize/memoize-docs.factor
+++ b/extra/memoize/memoize-docs.factor
@@ -1,6 +1,7 @@
 ! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: memoize help.syntax help.markup ;
+USING: help.syntax help.markup ;
+IN: memoize
 
 HELP: define-memoized
 { $values { "word" "the word to be defined" } { "quot" "a quotation" } }
diff --git a/extra/memoize/memoize.factor b/extra/memoize/memoize.factor
old mode 100644
new mode 100755
index 97da6f0a33..5fa112921c
--- a/extra/memoize/memoize.factor
+++ b/extra/memoize/memoize.factor
@@ -37,12 +37,12 @@ IN: memoize
     over check-memoized
     2dup "memo-quot" set-word-prop
     over H{ } clone "memoize" set-word-prop
-    over make-memoizer define-compound ;
+    over make-memoizer define ;
 
 : MEMO:
     CREATE dup reset-generic parse-definition define-memoized ; parsing
 
-PREDICATE: compound memoized "memoize" word-prop ;
+PREDICATE: word memoized "memoize" word-prop ;
 
 M: memoized definer drop \ MEMO: \ ; ;
 M: memoized definition "memo-quot" word-prop ;
diff --git a/extra/promises/promises-docs.factor b/extra/promises/promises-docs.factor
old mode 100644
new mode 100755
index 8fe2afd2f2..1adc14ca77
--- a/extra/promises/promises-docs.factor
+++ b/extra/promises/promises-docs.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2006 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
 
-USING: help.markup help.syntax promises ;
+USING: help.markup help.syntax ;
+IN: promises
 
 HELP: promise 
 { $values { "quot" "a quotation with stack effect ( -- X )" } { "promise" "a promise object" } }
diff --git a/extra/promises/promises.factor b/extra/promises/promises.factor
old mode 100644
new mode 100755
index ca26c93dc5..3724b929f0
--- a/extra/promises/promises.factor
+++ b/extra/promises/promises.factor
@@ -42,4 +42,4 @@ TUPLE: promise quot forced? value ;
 : LAZY:
   CREATE dup reset-generic
   dup parse-definition
-  make-lazy-quot define-compound ; parsing
+  make-lazy-quot define ; parsing