From 6980050a83685bc3b50cad71da21c63105f0a1b3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 27 Apr 2008 01:46:38 -0500
Subject: [PATCH] Add MEMO::

---
 extra/locals/locals.factor   | 4 +++-
 extra/memoize/memoize.factor | 3 +--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/extra/locals/locals.factor b/extra/locals/locals.factor
index be73f1db88..068f5d9a36 100755
--- a/extra/locals/locals.factor
+++ b/extra/locals/locals.factor
@@ -5,7 +5,7 @@ inference.transforms parser words quotations debugger macros
 arrays macros splitting combinators prettyprint.backend
 definitions prettyprint hashtables prettyprint.sections sets
 sequences.private effects generic compiler.units accessors
-locals.backend ;
+locals.backend memoize ;
 IN: locals
 
 ! Inspired by
@@ -298,6 +298,8 @@ MACRO: with-locals ( form -- quot ) lambda-rewrite ;
 
 : MACRO:: (::) define-macro ; parsing
 
+: MEMO:: (::) define-memoized ; parsing
+
 <PRIVATE
 
 ! Pretty-printing locals
diff --git a/extra/memoize/memoize.factor b/extra/memoize/memoize.factor
index 45ae2cc959..4136f9eaff 100755
--- a/extra/memoize/memoize.factor
+++ b/extra/memoize/memoize.factor
@@ -39,8 +39,7 @@ IN: memoize
     over H{ } clone "memoize" set-word-prop
     over make-memoizer define ;
 
-: MEMO:
-    CREATE-WORD parse-definition define-memoized ; parsing
+: MEMO: (:) define-memoized ; parsing
 
 PREDICATE: memoized < word "memoize" word-prop ;