From c832abae8696c6c7fb0bd34c1e29f0d4a3a6f2db Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 1 May 2008 16:23:11 -0500
Subject: [PATCH] Fix M::

---
 extra/locals/locals-tests.factor | 7 +++++++
 extra/locals/locals.factor       | 4 +++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/extra/locals/locals-tests.factor b/extra/locals/locals-tests.factor
index c13be40c8f..bb2fd9893c 100755
--- a/extra/locals/locals-tests.factor
+++ b/extra/locals/locals-tests.factor
@@ -230,3 +230,10 @@ DEFER: xyzzy
 
 [ "xxx" "yyy" ] [ "yyy" "xxx" let*-test-4 ] unit-test
 
+GENERIC: next-method-test ( a -- b )
+
+M: integer next-method-test 3 + ;
+
+M:: fixnum next-method-test ( a -- b ) a call-next-method 1 + ;
+
+[ 5 ] [ 1 next-method-test ] unit-test
diff --git a/extra/locals/locals.factor b/extra/locals/locals.factor
index 8c8fa96fa5..d18017f69b 100755
--- a/extra/locals/locals.factor
+++ b/extra/locals/locals.factor
@@ -279,7 +279,9 @@ M: wlet local-rewrite*
 
 : (::) CREATE-WORD parse-locals-definition ;
 
-: (M::) CREATE-METHOD parse-locals-definition ;
+: (M::)
+    CREATE-METHOD
+    [ parse-locals-definition ] with-method-definition ;
 
 PRIVATE>