core: Add the shuffler words but without primitives.

[factor.git] / extra / pcre / pcre.factor

diff --git a/extra/pcre/pcre.factor b/extra/pcre/pcre.factor
index 5759c1b3ec55c8ac3ca3ed18eb143c0bb96781d7..f30f70a71f58e54a3b26494b1e396cc496d3fa3e 100644 (file)
--- a/extra/pcre/pcre.factor
+++ b/extra/pcre/pcre.factor
@@ -90,7 +90,7 @@ ERROR: pcre-error value ;
     0 { c-string } [ pcre_study ] with-out-parameters drop ;
 
 : exec ( pcre extra subject ofs opts -- count match-data )
-    [ dup length ] 2dip 30 int <c-array> 30 [ pcre_exec ] 2keep drop ;
+    [ dup length ] 2dip 30 int <c-array> 30 [ pcre_exec ] keepd;
 
 TUPLE: matcher pcre extra subject ofs exec-opts ;