From d5a67e589185877eb00e012112da000ca821c206 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 11 Mar 2009 12:27:25 -0500
Subject: [PATCH] Fix compile error in regex

---
 basis/regexp/regexp.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/regexp/regexp.factor b/basis/regexp/regexp.factor
index 90218e05bd..7ea5db7d5d 100644
--- a/basis/regexp/regexp.factor
+++ b/basis/regexp/regexp.factor
@@ -139,7 +139,7 @@ M: regexp compile-next-match ( regexp -- regexp )
         dup \ next-initial-word = [
             drop _ compile-regexp dfa>>
             '[ _ '[ _ _ execute ] next-match ]
-            (( i string -- i match/f )) simple-define-temp
+            (( i string regexp -- i match/f )) simple-define-temp
         ] when
     ] change-next-match ;