~ chicken-core (chicken-5) 2657a2b80ae40c3e8fe99b15b6128b774c77f981

commit 2657a2b80ae40c3e8fe99b15b6128b774c77f981
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 2 05:55:54 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 2 05:55:54 2010 -0400

    unsafe match-vector-ref/set\!

diff --git a/irregex.scm b/irregex.scm
index e2fba1f1..0447d3de 100644
--- a/irregex.scm
+++ b/irregex.scm
@@ -176,11 +176,11 @@
 
 (define-compiler-syntax match-vector-ref
   (syntax-rules ()
-    ((_ m i) (vector-ref (##sys#slot m 1) i))))
+    ((_ m i) (##sys#slot (##sys#slot m 1) i))))
 
 (define-compiler-syntax match-vector-set!
   (syntax-rules ()
-    ((_ m i x) (vector-set! (##sys#slot m 1) i x))))
+    ((_ m i x) (##sys#setslot (##sys#slot m 1) i x))))
 
 (define-compiler-syntax irregex-match-start-chunk-set!
   (syntax-rules ()