~ chicken-core (chicken-5) 71cdec912537ce50abb1fe7b2c25a29c8e0f67db

commit 71cdec912537ce50abb1fe7b2c25a29c8e0f67db
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 30 23:28:53 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 30 23:28:53 2010 +0200

    fixes

diff --git a/irregex-core.scm b/irregex-core.scm
index 4b8189ed..deec3c89 100644
--- a/irregex-core.scm
+++ b/irregex-core.scm
@@ -428,7 +428,7 @@
 
 (cond-expand
   (building-chicken
-   (define-alias fast-substring=? %substring=?))
+   (define-alias %substring=? fast-substring=?))
   (else
    (define (%substring=? a b start1 start2 len)
      (let lp ((i 0))
@@ -443,7 +443,7 @@
 
 (cond-expand
   (building-chicken
-   (define-alias fast-string-copy %%string-copy!))
+   (define-alias %%string-copy! fast-string-copy!))
   (else
    (define (%%string-copy! to tstart from fstart fend)
      (do ((i fstart (+ i 1))