From d3660002c589578e3d95b304b64ec58ea95a87bc Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 1 May 2008 16:23:35 -0500
Subject: [PATCH] Change parser so that M:: can use call-next-method

---
 core/parser/parser.factor | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 23c0c0a1a5..76c831cf13 100755
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -421,14 +421,17 @@ ERROR: bad-number ;
 SYMBOL: current-class
 SYMBOL: current-generic
 
-: (M:)
-    CREATE-METHOD
+: with-method-definition ( quot -- parsed )
     [
+        >r
         [ "method-class" word-prop current-class set ]
         [ "method-generic" word-prop current-generic set ]
         [ ] tri
-        parse-definition
-    ] with-scope ;
+        r> call
+    ] with-scope ; inline
+
+: (M:)
+    CREATE-METHOD [ parse-definition ] with-method-definition ;
 
 : scan-object ( -- object )
     scan-word dup parsing?